* taction: control_engine_fol I 

* Description: 

* This flection gets the over r i de_cont rot jnode to no over ride so that 

* the engine follows the accelerator demand. 
* 



static void control engine follower (void) 
i 

Mefine POSITIVE PEDAL TRANSITION TIME 25 /* 250 MSEC V 
ftdef ine NEGATIVE~PEDAL~TRANSlTION~TIME 40 /* 400 MSEC V 



engine_status = ENGINE_FOLLOWER_M00E; 

if ((accelerator_pedal ^position >» 5) && /* positive pedal transition */ 
(acceleratorjsedal _position_old <» 4) && 
(low speed latch « FALSE))" 

C 

positive_pedal trans 3 TRUE; 

zero flywheel trq_time » POSITIVE PEDAL TRANSITION TIME; 
if <zero_flywheel_trq_timer >■ ME GAT I VE~PEDAL_TRANS I T I ON_T I ME ) 
zero flywheel trq_timer » 0; ~ 

> 

else 
< 

if ((accelerator_pedal_position <» 4) && /* negative pedal transition */ 
(accelerator_pedat j»si tion old >= 5) && 
(low speed latch « FALSE))" 

C 

zero_flywheel_trq_time = NEGAT I VE_PEDAl_TRANS I T I QN_T I ME ; 
zero~f lywheel~trq_timer * 0; 

> 

> 

if ((zero_f lywheel_trq_timer < zero_f lywheel_trq_time) && 

(current gear > 1) && (current gear < 10) && (low speed latch « FALSE)) 

( 

engine control = TORQUE CONTROL; 
coamand_ETC1 = C_ETC1_0VERSPEED; 

desired_engine _pct_trq = needed _per cent_for_zero_f I ywheel^trq; 

if (actual_engine _pct_trq < <needed_percent_for_zero_f lywheel_trq ♦ 5)); 
zero flywheel trq_timer*+; 

> 

else 
t 

if ((positive _pedal trans » TRUE) && (low speed latch == FALSE)) 
< 

positive_pedal_trans * FALSE; 

engine_cocinands ■ ENG I HE JUC0VERY ; /* engine: finish torque return */ 

control engine recoveryd; 

> 

else 
C 

engine control » OVERRI0E DISABLED; 
command ETC1 = C ETC1 NORMAL; 

> 

> 

/* if predipjnode had been forced, this is the place to clear its flag. */ 
/* But only clear it if the pedal is depressed. This is for the case when V 
/* a false confirmed gear is seen but the driver actually is coasting down. V 
if (accelerator _pedal_position > 4) 
forced _predip * FALSE; 



ipragma EJECT 



Best Available Copy 



Exhibit 18 



* Function: control_engine_idle 

* Description: 

* This function stts the engine controls for the idle mode. 

static void control engine idle(void) 
< 

engine control a OVERRIDE DISABLED; 
conroand_ETC1 - C_ETC1_kORMAL; 

engine status * ENGINE IDLE NODE; 

> 

fpragma EJECT 



Funct 1 on: cont ro 1 _eng i ne_s tart 
Description: 

This function sets the engine controls for the start mode. 



static void control engine start(void) 
( 

engine control • OVERRIDE DISABLED; 
cooaand ETC1 - C ETC1 NORMAL; 



> 



engine_status - ENGIME_START_MGOE; 



tpragma EJECT 



Fwt i on: com rot_eng \ ne_coapres* i on J>r ake 
Description: 

This function controls the state of the engine compression brake. 
The brake can be used during upshifts to speed up the dec el rate of 
the input shaft. 



static void control engine compression brake<void) 
< 

if (engine communication active It 

(engine'status » ENGINE SYNC MOOE) && 
(shift type == UPSHIFT) U 
(input_speed_filtered > (gos ♦ 150)) && 
(destination_gear > 1) && 
(destination~gear < 7) M 
(engine_brake_avai lable) && 

((dos_predicted < dos_prdtd lira no jake) || eng brake assist)) 

< 

eng brake assist = TRUE; 

> 

else 

i 

eng brake assist = FALSE; 

> 

eng_brake_assist * FALSE; /* debug - force false state for now */ 



♦pragma EJECT 



t ft ft ft ftftft ftftftft ft ftft ft ftftft ft ft ft ft ft ft ft ft ftftft ft A ft ft ft A ft ft ftftftft ftftftft ftftftftftftftftftftftftftftftft ftft ftftft ft ftftft ft 

Function: detertnine_go* 
Description: 

This function mulitplies the destination gear ratio times the 
output shaft speed for use in the 0Rt_CMDS module. 

gos = (g)ear * (o)utput (s)peed 



static void determine gos (void) 
< 

/*** determine gos for the destination_gear ***/ 
_bx » trn_tbl.gear_ratio[destination_gear ♦ GR_OFS]; 
_cx ■ output_speed_f i Itered; /* output speed */ 
asm mulu _cxdx ( Jdx; /* 8IN a result */ 

asm shrl "cxdx, i8; /* make BIN 0 V 

gos * _cxj /* BIN 0 */ 

_bx « trn_tbl ,gear_ratio[destination_gear + GR_0F$3; 
_cx * *(uint *)&dos_fi Itered; 
asm mul _cxdx, _bx ; ~ 
asm div _cxdx, #256; 
dgos = *?int *)&_cx; 

gos_signed = (signed intXgos); /* allow signed math in other functions*/ 

/*** determine gos for the "current_gear u ***/ 
_bx = trn_tbl ,gear_ratio(current_gear + GR_OFS] ; 
_cx = output_speed~f i Itered; "/* out put "speed */ 
asm mulu _cxdx, bx; /* BIN 8 result */ 

asm shrl "cxdx, #8; /* make 8IN 0 */ 

gos_current_gear = _cx; /* BIN 0 */ 



#pragma EJECT 



* Function: ofcteraine.shiftabHity.vtriables 

* Description: 

* This function filters both the output speed and the rate of change of 

* the output speed for use in the shiftability function. This function 

* also calulates the rate of change of the input shaft based on the 

* filtered value for the rate of change of the output shaft. 

* The filters used in this function are required to get a high level of 

* stability. The BIN 8 filter used here will provide a much smoother 

* output which is needed to filter out drive line oscillations. 

* Mote: These calculations were placed in this module because it is 

* called on a regular 10 msec interval. These calculations should 

* be placed in the pr_ i_s_i .c96 module once shiftability is proven. 

* These variables a refused in the SEL.GEAR.C96 module. 

***+*********+*********************#***********************************« ^ 



static void determine shiftabi 
t 

/* LPF coefficients: exp<-w 
#define OS LPF 248 
#define DOSFK1 249 
#define EPTFK1 252 



lity_variables(void) 

T), T*0.010s V 

/* 0.9691 BIM 8 (0.50Hz) */ 

/* 0.9727 BIN 8 (0.44Hz) */ 

/* 0.9844 BIN 8 (0.25Hz) */ 



#define IS FK1 235 

#define 0S~FK1 236 

«define DISFK1 236 

#define LOU RANGE 3197 

#define BIN~10 .1024 



/* 0.9219 BIN 8 (0.??Hz) */ 

/* 0.9219 BIN 8 (0.??Hz) */ 

/* 0.9219 BIM 8 (0.??Hz) */ 

/* 3.1224 BIN 10 V 



static long dos_f i ltered_bin8; 
static int ept.f i ttered_bin8; 

unsigned long is_filtered _partiaM; 

unsigned long is^f i ltered_partial~2; 

unsigned long os~filtered _partial"l; 

unsigned long os_f i ltered_partial_2; 

/** create lpf_output_accel **/ 

_bx ■ *(uint *)4output_speed_accel; /* _bx = x(n) ( BIN 0 V 

"cx » *(uint *)4lpf output accel - bx; /* "cx * y(n-1) - x(n), BIN 0 */ 

asm mul cxdx, #OS LPF; " /* cxdx * K*<...), BIN 8 */ 

asm div "cxdx, #256; /* make BIN 0 V 

_bx ♦« _cx; /* _bx » x(n) ♦ K*(...), BIN 0 

Tpf_output_accel * *(int *)&_bx; /* save acceleration V 



/** dos_filtered = (dos.f i Itered * 00SFIC1) ♦ (lpf_output_accel * (1-0OSFK1) **/ 



_cxdx ■ *(ulong *)&dos.f i Itered.binS; 

asm shral .cxdx, #2; 

asm mul _cxdx, #OOSFK1; 

asm shral .cxdx, #6; 

dos.f iltered.bin8 » *<long *)4_cxdx; 

cx * *(ufnt *)&lpf output accel; 
~bx » 256 - DOSFK1;" 
asm mul .cxdx, .bx; 
dos.f iltered_bin8 *(long *)4_cxdx; 



/* BIN 8 */ 
/* BIN 6 ( cx) V 
/* BIN 14 */ 
/* BIN 8 V 
/* save partial result */ 

/* BIN 0 V 
/* 1 BIN 8 - DOSFK1 */ 
/* BIN 8 V 

/* sum is final result */ 



dos.filtered » (int)(dos.f i Itered.binB » 8); /* BIN 0 V 

/** engjjercent torque filtered » (eng_percent torque filtered * EPTFK1) ♦ 
(net^enginejxt_trq * (1-EPTFK1 ) **7 



cx ■ *(uint *)&ept filtered bin8; 
asm mul .cxdx, #£PTFK1; 
asm shraT .cxdx, #8; 
ept.fi I tered.binS * *(int *)&_cx; 

cx ■ net engine _pct trq; 
"bx » 256"- EPTFK1; " 
asm mul .cxdx, bx; 
ept filtered bind ♦» *(int *)4 cx; 



■ /* BIN 8 V 

/* BIN 16 */ 

/* BIN 8 V 
/* save partial result V 

/* BIN 0 */ 

/* 1 BIN 8 - EPTFK1 */ 
/• BIN 8 */ 

/* sum is final result V 



jng.percent.torqMe.f \ I tared » (char)Cept.f Utered.bin8 » 8); 

/** input.shaft_accel_calculated « dos.f iltered * gear.ratio **/ 

.cx « trn.tbl.gtar.ratioCdtstination gear ♦ GR OFS]; /* SIM 8 V 
Jw « *<uTnt *)4doI.fU tared; ~ " /* BIN 0 */ 

asa mul .cxdx, _bx;~ /* BIN 8 */ 

asm shral .cxdxT #8; /* BIN 0 V 

input.shaft.accel.calculated « *(int *)&_cx; 

/■*• calculate filtered input and output shaft speeds for AutoSplit ***/ 

/*** determine os.based_on.rcs variable ***/ 
if (output speed <~10Q0)~ 
i 

bx « aux speed; /* BIN 0 */ 

"cx » B1N~10; /* BIN 10 V 

_ax ■ LOU.RANGE ; /* BIN 10 */ 

asa aulu .cxdx, .bx; /* make aux_speed BIN 10 */ 

asm divu _cxdx, "ax; /* divide by low range BIN 10 */ 

os based on res = cx; /* BIN 0 */ 

> 

/** input speed filtered = (input speed filtered * IS FK1) ♦ 
(input.speed * (1-IS_FK1> **/ 

_ax « (is.filtered bin8 » 4) ; 
~cx » IS.FK1 ; 
asm mulu _axbx, _cx ; 
asm shrl _axbx # #4 ; 
is_ f i ltered_part ial.1 = _axbx ; 

_cx » input.speed ; 
"ax » 256 -~IS_FK1 ; 
asm mulu .axbx, _cx ; 
is.f i ltered_partial_2 = .axbx ; 

is.f i ltered.bin8 = is.f i ltered_partial_1 + is.f i ltered_partial.2 ; 

input.speed.f iltered = (unsigned int)( is_f i ltered_bin8 » 8); /* BIN 0 */ 

/** output speed.f iltered = (output speed filtered * OS FK1) ♦ 
(output.speed * (T-0S_FK1) **/ 

ax = (os filtered bin8 » 4) ; /* BIN 4 V 

~CX * 0S.FK1 ; ~ /* BIN 8 */ 

asm mulu" axbx, cx ; /* BIN 12 */ 

asm shrl "axbx, #4 ; /* BIN 8 V 

os.filtered.partialJ = .axbx ; /* BIN 8 V 

#if (0) 

if (output.speed < 250) 
.cx » os.based.on.rcs; /• BIN 0 */ 

else 
#endif 

_cx * output_speed ; /* BIN 0 V 

.ax ■ 256 - 0S_FK1 ; /* 1 BIN 8 - 0S.FK1 */ 

asm mulu axbx7 cx ; /* BIN 8 */ 

os.f iltered _partTal.2 « .axbx ; /* BIN 8 V 

os.f iltered.bin8 » os.f i ltered.partiaM ♦ os.f iltered.partial_2 ; 

output.speed.f iltered » (unsigned int)(os_f i ltered.bin8 » 8); /* BIN 0 V 

nput.speed.accel.f iltered » ( input.speed.accel.fi Iter ed * 0ISFK1) ♦ (input.shaft.accel * (1-0ISFK1) **/ 



/• 


BIN 4 


V 


/* 


BIN 8 


V 


/* 


BIN 12 


V 


/* 


BIN 8 


V 


/* 


BIN 8 


V 


/* 


BIN 0 


V 


/* 


1 BIN 8 - 


IS FK1 »/ 


/* 


BIN 8 


V 


/• 


BIN 8 


*/ 



/" 1 

.cxdx « »(ulong *)&dis filtered bin8; /* BIN 8 V 

asm shral cxdx, #4; " " /* BIN 4 ( cx) */ 

asm out cxdx, #DISFK1; /* BIN 12 " V 

asm shral .cxdx, #4; /* BIN 8 V 

dit.fi I tered.bin8 « *(long *)4_cxdx; /* save partial result V 

_cx ■ *(uint *)4input speed accel; /* BIN 0 V 

.bx » 256 - 0ISFK1; " /* 1 BIN 8 - DISFK1 V 

ass out .cxdx, .bx; /* BIN 8 V 



input_speed_accet_f i l tered « <lnt)(dfs_f Utered>inS » e>; /• tin 0 V 

/** determine state of clutch **/ /•^Mll this is temporary until we get */ 

/*** clutch state over J1939. Ill***/ 

fif (0) 

if (engine_speed > input_speed) 

clutch_sTip_speed ■ engine_speed - input_speed; 
else 

clutch_stip_speed ■ input_speed - engine_speed; 

if (clutch_slip_speed > 200) 
clutch_state~* DISENGAGED; 
else 

if ((engine speed > 700) && (low speed latch « FALSE)) 
clutch state * ENGAGED; /* Note: 700 should be idle*100RPM */ 

#endif 

/*** Below is a known undesirable condition that could be corrected with the J 1939 
clutch state information. When input speed is brought below 700 RPM 
while in gear and the clutch is disengaged to acheive gear box neutral this 
algorithm holds the system in the follower mode until the driver bring the 
engine speed above the 700 RPM limit. The 700 RPM limit is needed to prevent 
false ENGAGED indications at idle speeds. ***/ 



/** determine desired percent torque needed for zero torque at flywheel **/ 
#if (0) 

/* This does not work but was not a problem to hard code a value 
because the accessory loading in this vehicle does not change 
much. This algorithm DOES need to work for the product. */ 
if ((acceleratorj^edal ^position < 2) && 
(clutch_state « ENGAGED) && 
(current gear =* 0) && 
(input speed filtered < 1100) && 
(((eng7ne_control « 0VERR I DE_0 1 SAB LED ) && 
(low speed latch =» FALSE) ll (current gear « 0)) || 
(output_speed_f iltered < 20))) 
percent torque accessories = eng_percent torque filtered; /* get at idle */ 
#endif 

percent_torque_accessories ■ 3; /* force value for now */ 

r>e«ded_percent_f or_zero_f lywheel_trq » percent_torque_accessories ♦ 

nomi na I "f r i c t i on jx t_t rq; 

/** determine overall error across the transmission **/ 

overall_error = ((signed int)( input_speed_f i Itered) • (signed int)(gos)); 



#pragma EJECT 



I** 



* Function: cannurncata_with_df iveline 

* Description: 

* Thit is the periodic task which controls the actions of the engine 

* by defining mode of control and controlling speed and torque output 

* level 8 depending upon the control function being performed. This task 

* is also intended for control of other drivel ine components (not yet 

* named) which may be available in the future. 

void communicate with drivel ine(void) 
< 

initial i ie_dr i ve I i ne_data( ) ; 

x start_periodic<); 

while (1) 

< 

cont ro I _eng i ne_compr ess i on_br ake( ) ; 

determine_gos<); /* calculate (G)ear tiroes the (Output (S)haft */ 

determine_shiftabi lity_variables(); 

if ((engine communication active) && 
(R747 type != 8ASE) M 
(R747 type != DUAL FORCE)) 

i 

if ((desired_sync_testjnode « TRUE) && <output_speed_f i Itered < 100)) 
control _eng i ne_sync_ t es t jnode ( ) ; 

else 

i /* start of normal engine_commands switch */ 

switch (engine_commands) 
t 

case ENGINEERED IP: 

cont ro I _eng i ne_pr edi p( ) ; 
break; 

case ENGINE_SYNC: 

cont ro I _eng i ne_sync ( ) ; 
break; 

case ENGINE_RECOVERY: 

cont ro l_eng i ne_r ecovery( ) ; 
break; 

case ENGINEJDLE: 

cont rol_eng i ne_i dl e( ) ; 
break; 

case ENGIME_START: 

control_engine_steft(); 
break; * ~ 

case ENGlME_FQLLOyCI: 
default: 

cont rol_engl ne_fol I ower < ) ; 

break; " " 

> 

> /* end of normal engine_conmands switch */ 

switch (eng brake command) 
< 

case ENG BRAKE OFF: 

retarder_control * TORQU£_CONTROl; 
desired_retarder_pct_trq « 0; 
break; 

case ENG_8RAJCE_FUIL: 

retarder_controt * TOftQUE.CONTROL; 
desi red_retarder_pct_trq ■ -100; 
break; 

case ENG.BRAJCEJDIE: 



default: 

retarcfef.control » 0Vmi0E v 01SA8tED; 
dasired_retarder _pct_trq * 0; 
break; 

> 

> 

else 

er*ine_statu3 » ENG!NE_MOT_PRESENT; 

/* store old value for use in M control_engine_fol lower" function */ 
acceleratorjjedal _position_old » acceleratorJJedal j»sition; 

x sync_periodic(US PER LOOP); 

> 

x_end - periodic(); 



r 



Unpublished and confidential. Mot to be reproduced, 
disseminated, transferred or used without the prior 
written content of Eaton Corporation. 

Copyright Eaton Corporation, 1994 
All rights reserved. 

Filename: pr_sj_s.c96 (R-747) (AutoSplit) 
Description: 

The modules contained within this compilation unit are 
intended to implement functionality of the Process System 
Input Signals task defined in the design document ion. 
In general, Analog to digital conversions -are started on 
PortO. The necessary hardware initialization and variable 
initializtion for inputs on PortO are handled. The switch 
inputs are captured to avoid conflict with AO conversions 
and all necessary scaling and error check for these inputs 
is conducted. 

Part Number: <none> 

$Log: ? 

Rev 1.3 9 Dec 1994 15:06: markyvech 
Added u trns_act ,h M to the includes so that R747_type could be use to 
determine if the electric shift knob is a splitter type or a intent to 
shift type. 

Rev 1.2 6 Oec 1994 15:06: markyvech 
Converted for use with R-747 program. (Added clutch & range switches) 
Also re-scaled EOJ-B ignition A20 code to work in ECU- II . 

Rev 1.1 19 May 1994 11:32:26 markyvech 
Converted for use with AutoSplit ECU 2 

Rev 1.0 12 Sep 1991 08:04:26 amsallen 
Initial revision. 



* 

* Header files included. 



#include <exec.h> /* executive information */ 

#include <kr sfr.h> /* ICR special function registers */ 

#include <kr_def.h> /* ICR definitions */ 

#include <c_regs.h> /* ICR internal register definitions V 

#include <wwslib.h> . /* world wide software definitions V 

#include H pr_s_i_s.h* /* process system input signal information •/ 

#include "sysgen.h 11 /* defines the task names and priority V 
#include u cont sys.h* 
#include u trns~act.h» 



* 

• fdefines local to this file. 
************** 

/* Star t_AD_Convers ions */ 

tfdefine ENABLE AD PTS SCAN 0X20 
#define ENABLE_ADJSR~0X20 

«define PERIOD 10U 
#define RICH PERIOD SOU 



/* 10ms V 
/* 50ms V 



* Constants and variables declared by this Ml: 



/* Oigitat Inputs on Portl •/ 

uchar splitter_select_switch; 
uchar intent_to_shif t'switch; 
uchar intent JioTd; 
uchar intent"hold_timer; 
uchar range_select_switch; 
uchar in_gear_switch; 
uchar spTitter_launch_state; 
uchar clutch_state; 

/* Analog Inputs on PortO V 

int ignition_volts; 
Int splitter" m position; 

#define IGNITION VOLTS CHANNEL RESULT 
#define SPLITTER"pOS CHANNEL RESULT 



1 

15 



«define CONVERSION TINE Oxef 



#define CONVERT 8 8 



/* for stata tine » 125 nsec: V 
/* sample tine * 3.6250 usee */ 
/* convert time » 20.1875 usee */ 
/* scan and convert 8 channels */ 



#define CONVERTJGNITIONJ/OLTS 
DWefine UNUSED CHANNEL l" 
#define UNUSED~CHANN£l"2 
#define UNUSED"CHANNEL~3 
#def ine UNUSED~CHANNEL~4 
#define UNUSE0"CHANNEL~5 
#def ine UNUSED~CHANNEl"6 
#define CONVERT SPLITTER POS 
#define STOP CONVERSION ~ 
#define START CONVERSIONS. 
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/* table containing AD_result and AD_Command values after PTS scan */ 
unsigned int AD_Table[T6] ; 

/* AD SCAN PTS CONTROL BLOCK LOCATION */ 
_ad_ptsb_type AD_Con_Block; 

ipragma Tocate(AD_Con_Block=0x01F8) /* locate pts control block V 
#pragma pts(AD_Con_Block =5) /* set pts vector 5, A/D done V 



#pragma EJECT 



********* 

Function: Initial 1x«Jnput_S1gnt>lt 

Description: 

This routine initializes the A/0 converter. It sets the A/0 to 
run in PTS scan node, 10b it conversion. The PTS control block is 
set up and the Canaand/ result table is initialized. 



void Initialize Input Signals(void) 
( 

/* if we knew when the first speed packet arrived, we could initialize 
with those values, since we don't, be safe and use zero. */ 



AO Table [0] 

AO Tabled] 

AD~Table(2] 

A0~Table[3] 

AD~Tablet4] 

AO Tablets] 

AD~Table£61 

AD~TableC73 

AD~TableC8l 

AO Table C9) 

A0~TableC10J 

AO Table[11) 

AD~TableM2] 

AO TableC13] 

AD~Table[14] 

AD~Table[15] 
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UNUSED CHANNEL 1; 


/* 
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UNUSED CHANNEL 2; 


/* 
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UNUSED_CHANNEL_3; 


/* 


s 
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/* 


s 


UNUSED CHANNEL 4; 


/* 


3 


0x00007 


/* 


3 


UNUSED CHANNEL 5; 


/* 


3 


OxOOOOj 


/* 


X 


UNUSED CHANNEL 6; 


/* 




0x0000" 


/* 


3 


CONVERT SPLITTER POS; 


/* 




0x0000;" 


/* 




STOPJTONVERSIQN; 


/* 


3 


0x0000; 


/* 



place holder for channel 1 
IGNIT1QM_V0LTS_CHANNEL_RESULT 
place holder for channel 2 
UNUSEDJ_RESULT 
place holder for channel 3 
UNUSED_2_RESULT 
place holder for channel 4 
UNUSED_3_RESULT 
place holder for channel 5 
UNUSED_4_RESULT 
place holder for channel 6 
UNUSED_5_RESULT 
Command convert splitter pos 
UNUSED_6_RESULT 
command to Stop conversions 
SPLITTER POS CHANNEL RESULT 



AD Con Block. cnt = CONVERT 8; 
AD~Con~Block.ctrl * _AD_K00E |_S_D_UPDT; 



/* A/0 (node bits 0,1 of PTS_CONTROL 
/* always set to 3h bit 2 »~0 
/* S/D update at end of cycle 
/* bit 5 always 0 
/* Set mode for AO SCAN 



ADj:on_Block.s_d = A0_Table; 
AD~ConJUock. reg * (void *)&_ad_result; 

_ad_time = CON VERS I 0N_T I ME ; 

"ad'test * NO OFFS; 

jsts select "( PTS A00ONE BIT); 



/* Load s_d with AD_Table address 
/* Load reg with AD~Result address 



/* Oisable test mode V 
/* Oisable AO PTS */ 



ftpragma EJECT 




Function: ADJSI 
Description: 

This interupt service routine resets the PTSCOUNT, pts_sd and pts_re$ 
for another PTS_Sc«n A/0 cycle. It also readies a task'to run when 
a PTS cycle has'coepleted. 



7 



ipragma interrupt (AO ISR*5) 
void AO ISR(void) 



x_start_isr(); 

AOJTonjHock.cnt = CONVERT 8; 
AD~Con~Block.s_d » AD Jab I e; 
AD_Con_Btock.re9 3 (void *)&_ad_result; 



/* Reset pts count for next cycle V 
/* Reset table pointer to start of table 



x_ready ( PROCESS J NPUT_S I GNALS); 
x~end_isr(); 



/* Ready pr_s_i_s task */ 



> 



#pragma EJECT 



* Function: Start_AD_Conver*1ons 

* Description: 

* This function initializes the input signal processing function 

* if it has not already been done, end then startes the PTS Scan 

* of the AO channels by sending the appropriate command to the 

* ad_comraand register. 

void Start AD Conversions (void) 
C 

if (Mntjnask & ENABLE_AD_ISR) »« 0 ) 

InTtiaTize_Input_Signals(); /* Set up AD table for PTS * 

_pts select |= ENA8LE_AD PTS SCAM; 
Jntjnask |= ENABIE_ADJSR; " 

x _prearra_stimulus(); 

STARTJTONVERSIONS; /* Start a conversion, initiate the PTS cycles */ 
x_wait_stimulusO; /* AO_!SR will ready task when PTS is complete */ 



#pragma EJECT 



* Function: read_$witch_ inputs 

* ~ ~~ 

* Description: 

* Read the state of the digital inputs. 
* 



****** 



void read switch inputs(void) 
i 

if <portJ_switches & 0x1) 

in_gear_switch * TRUE; 
else" 

in_gear_switch » FALSE; 

if (port_1_switches & 0x2) 

range_seTect_switch = LOW; 
else 

range_select_switch * HIGH; 



/* P1.0 V 



/* P1.1 V 



if (R747 type « INTENT) 
C 

if (port 1 switches & 0x4) /• P1.2 */ 
i 

intent_to_shift_switch = FALSE; 

if (intent_hold_timer < 25) 

intentJiold_tTmer ♦= 1; 
else 

intent hold = FALSE; 

> 

else 
C 

intent_to_shi f t_swi ten * TRUE; 
intent~hoTd timer = 0; 

> 



else 
< 

if (port_1_switches & 0x4) /* PI . 

splitter_select_switch = HIGH; 
else 

splitter select switch = LOW; 

> 



2 V 



if <<port_2_switches & 0x30) == (0x10)) 

clutch_state = ENGAGED; 
else 

clutch jjtate = DISENGAGED; 

#if (0) 

if (port_1_switches & 0x4) 

splitter~launch_state « LO_SPUTTEIl; 
else 

splitter launch state » HI SPLITTER; 
#endif 



splitter_launch_state * LO_SPL!TTER; 



#pragma EJECT 



* Function: processJnput_signels 

* Description: 

* This is the periodic task which starts the analog conversions on PortO. 

void process input signals(void) 
€ 

intent_hold = FALSE; /* initialize intent_hold */ 

x start_periodic<); 

while (1) 

< 

r eed_sw i t ch_ i npu t s ( ) ; 

Start_AD_Conversions< ); 

/* Clean up and scale AO values */ 

ignition_ volts = sea I e_system_ed J nputs( IGNITION J/OLTAGE); 
splitterj»sition * scale_syste«3»d_inputs(SPLlTTER_POSITlOM); 

x sync^per iodic (PER 1 00*1 000); 
/* x sync _periodic(RKM PER!00*1000); */ 
> 

x end_periodic( ); 

> 

#pragma EJECT 



^••^ AAAftftAt* ********£ ••♦•♦1 



* Function: scale.systefl^adjnputs 

* Description: 

* This function removes the channel, status and reserved bits from 

* the raw AO values, end performs all necessary scaling and error 

* checking for the analog inputs on PortO. 

****************** ****************-**************************************y 

int scale system ad inputs(char Channel) 
< 

int Scaled_Value = 0; 
uint vottsj*rj)it; /* SIN 16 V 
uint units_per"bit; /* BIN 16 V 

/* #define TWELVE VOLT FULL SCALE 22.46 */ /* ECU 8 volts V 

#define TWELVE VOLT FULL SCALE 34.51 /* ECU 2 volts V 

#define TWENTY~FOUR~VOLT~FULL SCALE 40.49 /* volts V 

#define DISTANCE FULL SCALE " 100 /* V 



volts_per bit = (uint)((TWELVE VOLT FULL SCAL E*65 536/ 1023) +0.5); 
units_per"bit * (uint)((DISTANCE_FULL_SCALE*65536/1023)*0.5); 

switch (Channel) 

case 0: /* IGNITION VOLTAGE */ 

jcx * ADJ'ableCIGNITIONJ/OLTSj:HANNELJtESULTJ » 6; 

asm mulu~_cxdx, volts _per bitj /* volts, BIN 16 (_dx, BIN 0) */ 

Scaled J/alue = *<int *)&_dx; 

break;" 

case 1: /* UNUSED V /* to be completed when a product requires it */ 
ScaledJ/alue = (0); 
break; 

case 2: /* UNUSED */ /* to be completed when a product requires it V 
ScaledJ/alue * (0); 
break; 

case 3: /* UNUSED V /* to be completed when a product requires it */ 
ScaledJ/alue * <0); 
break;" 

case 4: /* UNUSED */ /* to be completed when a product requires it V 
ScaledJ/alue * (0); 
break; 

case 5: /* UNUSED */ /* to be completed when a product requires it V 
ScaledJ/alue * (0); 
break; 

case 6: /* UNUSED */ /* to be completed when a product requires it V 
ScaledJ/alue * (0); 
break; 

case 7: /* SPLITTER POSITION V 

_cx a AD _Table CSK I TTER_POS_CHAMNEL_8ESULT] » 6; 

asm raulu" cxdx, units j£c bit; /'"distance, BIN 16 ( dx, BIN 0) V 

Scaled J/aTue « *(lnt 

break; " 

default: 
break; 

> 

return (ScaledJ/alue); 



* Unpublished and confidential. Mot to be reproduced, 

* disseminated, transferred or used without the prior 

* written consent of Eaton Corporation. 



* 



* Copyright Eaton Corporation, 1991-94. 

* All rights reserved. 



* Filename: seq_shft.c96 (R-747) (AutoSplit) 
* 

* Description: 

* The functions in this file will perform the required systc 

* level operations for implementing Sequence Shift. 
* 

* Part Number: <none> 



* 



Rev 1.2 12 Dec 1994 09:15 markyvech 
In function H sequence_shif t() u added code for the intent_hold. 



* Rev 1.1 09 Dec 1994 08:07 markyvech 

* In function "sequence_shi ft(> u added code for the intent to shift 

* feature. This will alTow shift_ini tiate, (predip mode), to be called. 

* Also added code to allow for the cancellation of intent to shift if 

* conditions allow, (call confirm shift). 
* 

* Rev 1.0 12 May 1994 16:26:00 markyvech 

* Initial version 



* Header files included. 
* 



^include <exec.h> /* executive information */ 

#include <c_regs.h> /* KR internal registers */ 

#include <wwslib.h> /* World Wide Software Library */ 

#include "cont_sys.h M /* control system information */ 

# include ,, conj1939.h" /* Defines interface to engine communications info 

#include "con_o_s.h M /* control output signal information */ 

#include "drl_cmds.h u /* drivel ine commands information */ 

#?nclude "sel~gear.h u 

# include "shf_tbl.h" /* Contains information relative to engine */ 

#include "trn~tbl ,h u /* transmission table information */ 

#include "trns_act.h M /* transmission information */ 

#include "pr_s_i_s.h u /* process system input signals information */ 

/A*********************************************************************** 

* #defines local to this file. 
* 



/***************** A****************************************************** 
* 



publics. 



unsigned char f or ced_predip_ timer; 
unsigned char init_dest_gear_t iraer; 
signed char ini tTal_destination_gear; 



* 

* Constants and variables declared by this file. 

static uchar coast jnode; /* allows veh-icle to coast in low gears V 



#define FORCEDJ>REDIP_TIME 150 /* 300 MSEC at 5 counts per loop */ 

^define IM_SYNCJ«DE_TIKEJ.IMIT 200 /* 2 SEC V 



IprsffM EJECT 




r 



* Function* initUlfze_sequence_thlft 

* Description: 

* This function initializes those nodule variables that must be set to 

* know state on power up or reset. 

**+***********+******«*«*********+**+**^ 

void initialize sequence shift(void) 
C 

shift_type * UPSHIFT; 
shift_in_process * FALSE; 
forced_predip_timer * 0; 



#pragroa EJECT 



* Function: stilftJnitUte 

* Description: 

* This function begins the shift sequence by setting up the 

* transmission to pull to Neutral, commands the electronic engine 

* controller to 90 to zero torojje and prepares the clutch to disengage 

* if required. 
* 

static void shift ini tiate(void) 



/* (do not request engine fueling with engine brake on) */ 
eng_brake_command * ENG_BRAKE_OFF; /* eng brake: zero torque */ 

if <<lpf_output_speed < shf_tbl .min_output_spd) || 

<ctutch_state == DISENGAGED) || 

((coastjnode) && (shift_type l» UPSHIFT) && /* Prevents engine control 
<(destination_gear < 3 > | } /* in low gear(s) downshifts. 

((destination~gear < 4) && (accelerator_pedal ^position <* 5))))) 

i 

engine commands = ENGINE FOLLOWER; 

> 

else 
{ 

engine_conmands = ENGINEERED IP; /* engine: bring torque to zero */ 

coast mode = FALSE; 

> 

> 

#pragma EJECT 



* Function: synch r on f ze_gear 



* Description: 

* This function assists the sychronizing of the transmission by 

* utilizing SAE J 1939 functions to control an electronic engine. 
* 



static void synchronize_gear(void) 

/* turn on engine brakes (J 1939) if engine brake assisted shift is requested */ 

if (eng_brake_assist) 

eng_br a k e_c ommand ■ ENG_BRAKE_FULL; 
else 

eng_brake_coramand = ENG_BRAKE_OFF; 
if <(lpf_output_speed < shf_tbl .ain_output_spd) || 
<clutch_state » DISENGAGED) || 

<(coast_mode) && <shift_type !* UPSHIFT) && /* Prevents engine control */ 
<(destination_gear < 3) || /* in low gear(s) downshifts. */ 

<(destination~gear < 4) && (accelerator _peda Imposition « 5))))) 

i 

engine commands = ENGINE FOLLOWER; 



else 

engine_commands = ENGINE_SYNC; 
coast mode = FALSE; 

> 



if <<engine_status != ENG I NE_SYNC_MOOE ) && 
(engine"commands == ENGINE_SYNO) 
ini t_dest_gear_timer a 0 ; 

if (init dest gear timer < 8) 
< 

ini tial_dest init ion_gear = destinat ion_gea reelected; 
init dest gear timer++; 

} 



/* Save the initial gear */ 
/* to check for a new one */ 
/* as the shift progresses. V 



else 



/* If the gear changes, */ 



if <<engine_status == ENGINE_SYNC_HOOE) && 

<initiaT_destination_gear !» destinat ion_gear_selected)) /* force the predip mode */ 
i " ~ " ■ /* to allow the splitter V 

forced_predip_timer * FORCED_PREDIP_TIME; /* to move. */ 

forced_predip » TRUE; 

> 



#pragma EJECT 



* Function: conf ina_shift 

* Description: 

* This function finishes the shift; shift in_process is set FALSE. 

* ~ 

static void confirm shift(void) 
C 

engine_commands = ENG I NE_RECOVER Y ; /* engine: finish torque return 

eng_brake_coamand = ENG_BRAKE_OFF; /* eng brake: zero torque */ 

shiftjn ^process * FALSE; 
coast jnode » TRUE; 



fpragma EJECT 



Function: sequence.shif t 
Description: 

This function calls the appropriate procedures to perform the 
operations of Sequence_$hif t depending on the current state of 
the shift process. 



**************** 



void sequence shift(void) 
< 

if (destination gear < last known gear) /* determine shift type */ 
< 

if (pct_demand_at_cur sp > 5) 

shift~type «~POVErJ)OVH_$HI*T; 
else 

shift type = COAST DOWN SHIFT; 

> 

else 

shift_type = UPSHIFT; 

if << forced _predip_timer >» 4) && /* Time out a forced return to the predip mode */ 
(g_ptr »■ 0)) /* if the destination gear selected changes */ 

forced_predip_timer -= 4; /* during the sync mode. V 

if (forced _pr edip_timer > 0) 
f orced_pred i p_t i mer - - ; 

if (destination gear == NULL GEAR) /* System has reset: do not start a shift */ 
C 

engine commands = ENGINE FOLLOWER; 
eng brake command = ENG BRAKE IDLE; 

> 

else " ~ 

if ((transmission_posi tion == 0UT_0F_GEAR) && 
(forced_predip timer == 0) && 
((engine status - — ENGINE_SYNC_M00E) || 

(engine'status == ENGINE~PREdTp M00E))) /* forces shift initiateO */ j 

{ ' ■ y 

synchronize gear(); _ 

) ~ ~~ 



else 

if ((((engine status ENGINE_SYNC M00E) || 

(engine~status == ENGINE~RECOVERY_M0OE)) && 
(forced_predip_timer == 0) && 
(destination^ ear == current_gear) && 
(transmtssion^position I N_GEAR ) ) || 

((shift_in_process == TRUE) && /* cancel intent to shift if V 

(intent to shift switch •» FALSE) U /* conditions allow it. */ 
(shiftjntt_type~« MANUAL) U 
(automatic tip « 0) tt 
(transmitalon^position «» IN GEAR) U 
(engine status ENG INC PRfDIP MODE))) 

€ 

confirm shiftO*. 



else 

if (((destination gear !* current gear) && /* auto splitter */ 
(low_speedJatch « FALSE) U~ 
( automat ic'sip (s 0) M 
(transmissTon^position 3» INJ5EAR)) || 

((intent_to_shift_switch »» TRUE) && /* Allows for intent_to_shift 

(desired gear !="desti nation gear selected) && /* manual shift. 
( intent _hold == FALSE) && 
( automat ic_sip « 0) && 
(shift init type « MANUAL) && 
(low_speed_Tatch == FALSE) tt 
(transmission ^position «■ IM_GEAR)) || 



(forced _predip_timer > 0) || 



/* gear changed during shift */ 



<(transaissiaa.positian » OUT Of CXAfi) U /* 
<lo«_$pt«<M«tcft •» FAIS€}» ~ 



shiftjnitiat*); 



• 

* Unpublished and confidential. Mot to be reproduced, 

* disseminated, transferred or used without the prior 

* written consent of Eaton Corporation. 



* 



Copyright Eaton Corporation, 1993 -94. 
Alt rights reserved. 



* Filename: set_gear.c96 (R-747) (AutoSplit) 

* ~" 

* Description: 

* This module is the periodic task »setect_gear u . It assigns values 

* to destination_gear_selected as a function of selected jnode, input 

* and output shaft speeds. 

* Shift parameters are in the data structure shf_tbl. 
* 

* Part Mumber: <none> 
* 

* Rev 1.1 12 Dec 1994 08:05 markyvech 

* In function "detenninejnanual^shif tjrtsO", changed auto_up_rpra from 

* 1350 RPH to 1425 RPM because the transmission has been changed to a "8* 

* ratio and skip upshifts need to be avoided. 
* 

* Rev 1.0 14 Sep 1994 14:02:00 markyvech 

* Initial revision. 



* 

* Header files included. 



#include <exec.h> /* executive information V 

#include <c_regs.h> /* c registers */ 

#include <uwslib.h> /* contains common global defines V 

#include "cont_sys.h" /* control system V 

#include l, conjT939.h M /* defines interface to j 1939 control module */ 

#include "drL_cmds.h" /* drivel ine commands information */ 

#include "sel^gear.h** /* select gear */ 

#include "shObl.h" /* shift table definition */ 

Hh'nclude "trn~tbl .h" /* (system) transmission table definition */ 

jUinclude "calcjjpd.h" 

^include "trns^act .h» 

#pragma noreentrant 

* 

* #defines local to this file. 



«define US_PER_LOOf> 40000U 

#def ine I M I T I AL_START_G£AJt t 

#define SHIFTJNHIBIT_DECUJJHIT -150 

* Constants and variables declared by this file. 



/* public V 

char des tinati on_gea reelected ; 

char destination_gear; 

char f lash_desired_allowed; 

char des i red_gea r ; 

char desired_gear_dn; 

char desi red_gear_up; 

uchar coast ing_l at ch; 

uchar shift_init_type; 

uint lpf_output~speed; 



int dosj>redtcted; /* BIN 0 V 

int do* _prd t d_ I i •J* J ake; /* BIN 0 */ 



/* local */ 

/* filter weights for the "rads" output speed filter */ 
static register uchar w1; 
static register uchar w2; 
static register uchar u3; 
static register uchar w4; 

/• shift table (define and extern in shf_tbl.h) */ 
struct shf_tbl_t shf_tbl; 

/* default shift table values V 
const struct shf tbl t ini shf tbl 3 
I 

1200, /* aut_dwn_rpm */ 

1000, /* aut~min~dwn_rpm */ 

1700, /* aut~up_rp» */ 

0, /* best gr offset V 

50, /* dwn_of fset_rpa */ 

100, /* dwn~reset_rpra */ 

400, /* dwn~timer3offset_rpm */ 

40, /* hysteresis_rpm *7 

1850, /* man_dwn_sync_rpra V 

700, /* man_up_sync_rpm */ 

1900, /* rated rpm *7 

150, /* up_of fset_rpro */ 

125, /* up~reset_rpm */ 

200, /* up~timer~of f set_rpm */ 

0, /* dwn_acceT */ 
8, /* up accel */ 
3000, /* offset_time V 
<uint)(0. 25*256), /* aut_upjxt */ 

10, /* min_output_spd */ 

1, /* max~start_gear */ 
0, /* padbytel */ 

196, /* k1 ability, mi n- ft/rev- sec, BIN 12 */ 

431, /* axTe_ratio_cal, BIM 7 */ 

383, /* gcw k1, rev/sec -mi n-ft, BIN 0 */ 

2437, * /* gcw~k2, rev/sec 2, BIN 7 */ 

1325, /* calc_start_point, rpra, BIN 0 V 

107, /* k6 ability, mi n- lb- ft- sec/rev, BIN 8 V 

1500, /* auto_up_loJ»se, rem, BIN 0 */ 

1100, /* auto~dn~lo~base, rem, BIN 0 V 

100, /* auto~rtd_offset, rpro, BIN 0 V 

1000, /* lowest engage.rpm, BIN 0 */ 

0, /* padwordl */ 

0 /* padword2 V 

>; 



/* local initialized at start of task by select_gear */ 

/* shift points with anti-hunt offsets; referenced by auto_downshift and 

auto_upshift; set by get_atrtonet i c_g«ar and select_gear~V 
uint upshift _point; 
uint downshift_point; 

/* lower limit for gear selections */ 
char I o Westmorland; 

/* indicate direction of a get_automatic_gear shift; referenced by 

getjnanual_gear; cleared by~select_gear when shift complete V 
char automatic_sip; 

/* used in the determination of shift ^points based on throttle position * 
static uint auto_up_rpm; 
static uint auto_dh~rp»; 
static uint autojjp~of fset_rpm; 
static uint auto~dn~of fset~rpm; 

/* delay counter for ant i -hunt */ 
static uchar antihunt_counter; 

/* gross combined weight calculations V 



Mftfin* ZERO SP€I9_TUC LIWT 450* 
•define VALID 0L0 OATA TI* 100 
•deffne MAX VEHICLE UflCHT looooa 
•define DOS'ofFSST TnIT 46 
•define EMG~DECEL LOU LIMIT -350 
•define EMG OECEL LPF* 224 



/• 3 win a 0,040 period V 
/* 4 sec 9 0.040 period V 
/* 100,000 lbs */ 

/* rpm/s V 

/* exp<-2pi<0.53Hz)<0.040s)) * 0.875 (BIN 8) V 



•if <0> 
static ulong 
static long 
static uint 
static ulong 
static uchar 
static uchar 
static uchar 
static uint 
static uchar 
static uchar 
static uint 
static int 
static int 
static uint 
static uchar 
static uint 



static 
static 
static 



int 
int 
int 



static uchar 



gross_co(nbt nedjrt i gnt ; 

gcw_local; 

gc*Ac<al_counter; 

va I Td_o I d~da t a_c oun t e r ; 
<nissed_shTft_o7fset_arm; 
gcw_caTcu I a t i on_a 1 1 owed; 
zero_speed_counter; 
gcw_f irst_shift; 
dos~f iltef^l atch; 
gcw~cal_new; 
dos~f i ltered_old; 
dos'offset; 
sync_delta_timer; 
dis_f ilteOatch.- 
input^spdjF irst _point; 
eng_dec e I ~ I a t es t ; 
eng_decel_rate; 
eng~decel~rate_wth_j ake; 
used_eng_brk; 



/* shiftability calculations */ 

•define TORO ACC IPF 230 

#def ine K7 ABILITY 249 

#define FIXED LIMIT -30 

#define FIXED*UMIT 1 -36 

•define $HF_BLY_HOL0j:OUNT 3 

static uchar sh if tabi I i typhoid; 
static uchar shiftabi I ity~hold_I I; 
static uchar shf_bly_hold_cntrJ 
static int dos_predicted_raw; 
static long dos_predicted_bin8; 
static long dos_predicted^partial_1; 
static long dos_predicted_partial_2; 
static int dos_prdtd_t im_wth_jake7 
static int vehi cle_acc el _bs; 
static int vehicle_accel_as; 
static int engine_torque; 
static int torque2at_wheels; 
static int torq_to_accel_eng; 
static uint gcw_cal; 
static uint TRAMS_$TEP_SIZE_CAL; 
static uchar torque accessories; 
#endif 



/* lb-sec*2 ( SIM 0 V 



/* 0.9000 BIN 8 V 
/* 0.9730 BIN 8 V 



/* 120 ms 3 0.040 period */ 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



BIN 0 
BIN 8 
BIN 8 
BIN 8 
BIN 0 
BIN 
BIN 
BIN 
BIN 
BIN 



V 
*/ 
*/ 
*/ 
*/ 
V 
V 
V 

*/ 
*/ 



lb-sec'2, BIN 0 V 
#, BIN 8 V 
Ib-ft, BIN 0 V 



•pragma. EJECT 



* Function: ndajxitput^f ilter 

* " 

* Description: 

* This is a one pole LPF with a variable coefficient. The magnitude 

* of the coefficient is directly related to the acceleration content 

* of the speed sample and the frequency. 
* 



static void mda output filter(void) 
< 

#define K1 8 
#define K2 24 
#define IC3 48 
«define K4 160 

static register uint os_del ta_speed; 
static register uchar weight; 



if <lpf_output_speed > output_speed) 

osjdel ta_speed = lpf_output_speed - output_speed; 
else 

os_delta_speed 3 out put_s peed - I pf _output_speed; 

if Cos delta speed <= K1) /* delta <= 200 rpm/s V 

if <w1 > 1) --w1; 
if <w2 < 5) ++w2; 
if <w3 < 6) *+w3; 
if <w4 < 7) ++w4; 
weight = wl; 

> 

else if (os delta speed <= K2) /* 200 rpm/s < delta <= 600 rpm/s */ 
C 

if (w1 < 4) *+w1; 
if <w2 > 2) -w2; 
if (w3 < 6) ++w3; 
if <w4 < 7) ++w4; 
weight = w2; 

> 

else if (os delta speed <= K3) /* 600 rpm/s < delta <* 1200 rpm/s V 
C 

if <w1 < 4) "++w1; 
if <w2 < 5) ++w2; 
if (w3 > 3) -w3; 
if <w4 < 7) ++w4; 
weight = w3; 

> 

else if (os delta speed <= K4) /* 1200 rpm/s < delta <= 4000 rpm/s */ 
( 

if (w1 < 4) ♦♦wl; 
if (w2 < 5) ++W2; 
if <w3 < 6) ♦♦w3; 
if (w4 > 3) -w4; 
weight * w4; 

> 

else /* 4000 rpm/s < delta V 



< 



> 



if <w1 < 4) *nrt; 

if <w2 < 5) ♦♦ttf; 

if (w3 < 6) ♦♦wJ; 

if <w4 < 7) ♦♦w4; 

weight = 7; 



> 



lpf_output_speed » lpf_output_speed ♦ 

7output~speed » weight) -~<lpf_output_speed » weight); 



#pragma EJECT 



* Function: new input _spe*d 

* - - 

* Description: 

* A utility function that return* the input shaft speed expected if 

* "gear" was engaged with the present output shaft speed. 
* 



static uint new input speed(char gear) 
< 

/* new_input_speed = lpf_output_speed * gear-ratio */ 

_ax ■ trn_tbT.gear_ratio7gear *~GR_OFS); ~ /* 81M 8 */ 

asm mulu Zaxbx, lpf_output_speed; ~ /* BIN 0+8=8 < axbx) */ 

asm shrl _axbx, #8;" " /* BIN 8»»0 (~ax) V 

return _ax; 



#pragma EJECT 



* Function: auto_upshif t 

* Description: 

* This boolean function returns true when automatic upshift 

* conditions have been net. 
* 

static int auto upshif t(void) 
< 

if ((90s > upshif t_po int) && (output speed filtered > 120)) 
0 

if (engine communication active) 
< 

/* if (( Ishiftabi I i typhoid) && (IshiftabilityJioldJI)) */ 
return 1; 

> 

> 

return 0; 



#pragma EJECT 



* First Ion: autojtounshift 

* Description: 

* This boolean function returns true when automatic downshift 

* conditions have been met. 
• 

static int auto downshift(void) 
i 

if (90s < downshif t_point) 
t 

return 1; 

> 

return 0; 

> 

fpragma EJECT 



******************* 

* Function] ofet*r*in*auto«plit_typ* 

* "* ~ 

* Description: 

* This function is used to determine if the impending shift type is 

* MANUAL or AUTO. 



static char determine autosptit type (char passed new gear, char passed initial gear) 

register char ne«_gr = passed_new_gear; 
register char init_gr * passed_in7tial_gear; 



if ((shift in_process « FALSE) || 



(engine_status « ENGI NE_RECOVERY_M00E ) ) 



if 



((new_gr aa 
(netTgr « 
(new'gr =» 
(nev'gr 
(new~gr =» 



1 && init_gr »» 
3 M iniOr " 
5 && init~gr == 
7 U init~gr » 



2) 
4) 
6) 
8) 



9 &4 init_gr 10) 



(new_gr « to &i init_gr =■ 9) 

(ne*Tgr » 8&& ini t_gr == 7) 

(new~gr sa 6 && init~gr == 5) 

(new_gr == 4 && init_gr =» 3) 

(netTgr == 2 && init~gr == 1)) 
shift_Tnit_type = AUTO;" 



oh 
an 
dh 
an 
dn 
up 
up 
up 
up 
up 



else 
shif t_init_type 



MANUAL; 



#pragma EJECT 



* Function: get_autoraatic_gear 

* Description: 

* This function determines the appropriate gear for both automatic 

* splitter shifts and manual lever shifts. 
* 

static char get automatic gear(char initial gear, char manual request) 
( 

register char new_gear = im'tial_gear; 

if (automatic sip != -1) 
i 



/* initiate or continue an upshift: search up from lowest_forward 

(fastest input speed) for the first available gear that will provide input 
speed below a value (approx upshift rpm, minus an offset for gears that will 
result in a net downshift) */ 

for (new_gear = lowest_forward; 

(new_input_speed(new_gear) > (upshif t_point - 
(new_gear < initial_gear ? 

(shf_tbl ,up_of fset_rpm ♦ auto_dn_of f set_rpm) : shf_tbl .best_gr_of fset))) 
&& (new_gear < trn_tbl ,highest_forward7; " ~ 

++new_gear) 



if ((initial_gear == 3) && ((new_gear ==2) || (new_gear == 1))) 
new_gear = initial_gear; 

desired_gear = new_gear; 
desi red_gearjjp = new_gear; 

determine_autospl it_type(new_gear, ini tial_gear); 

/* if lever shift and still in gear, keep initial_gear */ 

if (((shif t_init_type == MANUAL) && (transmissionjxsi t ion == IN_GEAR)) || 

(( automat ic_sip == 0) && (new_gear <= initial_gear)) || 

((dgos < SHI FT_INHIBIT_DECEL_LIMIT) && 
((transmissionjxsi tion == IN_GEAR) || 

((transmissionjxsition == OUTJDFJSEAR) && (shif t_init_type » AUTO))))) 
new_gear = ini tial_gear; 
else 
i 

/* indicate gear change and adjust downshift j»int */ 

automat ic^sip = +1; 

auto_up_offset_rpm = 0; 

if (shi 7 tjni t'type == AUTO) 

auto_dn_of fset_rpm = shf_tbl .dwn_t imer_of f set_rpm; 
else ~ ~ " 

auto dn offset rpm = 0; 

> 

> 



if ((automatic sip I« 1) && (initial gear > lowest forward)) 
C 

/* initiate or continue an downshift: search down from 

highest_forward (slowest input speed) for the first available gear that wilt 

provide~input speed above a value (approx downshift rpm, plus an offset for 

gears that will result in a net upshift) */ 
for (new_gear « trn_tbl .highest_forward; 

(new_input_speed(new_gear) <"(downshif tj»int ♦ 

(new_gear > initial_gear ? shf_tbl.dwn_of fset_rpn> : shf_tbl ,best_gr_of fset))) 

&& (new^gear > lowest_7orward); 

•-new_gear) 



if ((initial_gear « 3) && ((new_gear 2) 1 1. (new_gear »» 1))) 
new_gear = initial_gear; 

desired_gear_dn ■ new_gear; 

if (desired_gear_oti < initial_gear) /* Must be a down shift or else it nay */ 

desired_gear ■ new_gear; " /* wrongly cancel the de*ired_up pick. */ 



d»t«r*1r»_«utosptit_typ*<nt« _ge«r, initial jwr); 

/* if lever shift and stilt in g—r, keep initial gear •/ 

if (((shift Jnit.type « MANUAL) U (tranwssionj»sitian « I M_G£Aft ) ) || 

(( automat ic_sip «* 0) &ft (new_gear >« initial_gear)) || 

((dgos < $H1FTJMHIBITJ)ECELJ.IMIT) && 
((transmission ^position « l5_GEAR) || 

((transmission ^position ■» 0UT_0F_GEAR) && <shift_init_type == AUTO))))) 
new_gear » initial_gear; 
else ~ 
< 

/* indicate automatic gear change and adjust upshif t_point */ 

automatic_sip = -1; 

auto_dn_off set_rpra a 0; 

if (shiftjni t~type « AUTO) 

auto_up~of fset_rpm » shf^tbl .up_timer_of fset_rpm; 
else 

auto up offset rpra » 0; 

) 

> 

return new gear; 

> 

#pra$na EJECT 



* Function: deterai ne_dest i nat i on 

* Description: 

* This function uses "coast ing_latch tt to determine if a coasting or 

* skip shift is being attempted. Mien sensed, the latch is used in 

* the detennine_bate j>ts function to affect the base shift points, 

♦♦A*********************************************************************/ 

void determine destination void) 
< 

/* if coasting in neutral - modify shift points V 

if (coasting latch « FALSE) 

if ((last known gear - destination gear selected) > 1) /* multi downshift 
< 

if ((destination_gear_selected = a 7) 
( des tination_gea reelected *» 5) 
(destination~gear_selected ==3) 
(destination gear selected == 1)) 

i 

des t i nat i on_gear_se I ected++; 
coasting latch = TRUE; 

> 

> 

else 
< 

if ((destination gear selected - last known gear) > 1) /* multi upshift 
{ 

if ((destination_gear_selected « 10) 
( des tination^gea reelected « 8) 
( des tination_gea reelected 6) 
(destination gear selected =■ 4)) 

t 

de s t i na t i on_gea rjs elected- - ; 
coasting latch = TRUE; 

> 

) 

> 

> 

else 

if (shift_in ^process == FALSE) 
coast ing_l at ch » FALSE; 

> 

#pragma EJECT 



• Function: ofettfttinejBanuaL_shift_pts 

* Description: 

static void determine manual shif t_pts(void) 
C 

if (coasting latch » FALSE) 
< 

if ( ( last_known_gear == 1 ) 
< lastJcnowTgear 3) 
<lastJcnown_gear ==5) 
<lastJcnown~gear == 7) 
<last_known_geer == 9)) 
auto_dn~rpro » 1325; /* manual downshifts V 

else 

auto up rpm = 1425; /* manual upshifts */ 

) 



> 

#pragma EJECT 



* 

* Function: dtttmfnt.bw.auto^thif t _pti 

* Description: 

* Thft function determines the base up and down shift points based on 

* the position of the throttle. These base points will be used in the 

* calculation of the upshi f t jx>int and the downshif t_point. 
* 

* The anti-hunting calculations have been moved to this function since 

* these calculations are now throttle dependent. 
* 

static void determine base auto shift_pts(void) 
I 

if (pet demand at cur sp > 0) 

/* 8uto_up_rpm « shf_tbl.auto_up_lo_base ♦ 

((shf_tbl.aut_up_rpo - shf~tbT.auto_up_lo_base) * Xthrottle) * 

_cx « shf_tbl.aut_up_rpra • shf_tbl .auto_up_lo_base; 
_bx « pct_demand_at_cur_sp; 
asm mulu _cxdx, _bx; 
asm divu _cxdx, #100; 

auto_up_rpm = shf_tbl .auto_up_lo_base ♦ _cx; 

/* check for RTO requirement */ 
if <pct_demand_at_cur_sp > 90) 

autojjp_rpm~+=~shf~tbl ,auto_rtd_of fset; 

/* auto_dn_rpm = shf_tbl ,auto_dn_lo_base + 

((shf_tbl.aut_dwn_rpm -~shf_tbl .auto_dn_lo_base) * Xthrottle) 

_cx = shf_tbl.aut_dwn_rpm - shf_tbl .auto_dn_lo_base; 
_bx = pct_demand_at_cur_sp; 
asm mulu _cxdx, _bx; 
asm divu _cxdx, #100; 

auto dn rpm = shf tbl.auto dn lo base + cx; 

> 

else 
C 

auto_up_rpm = shf_tbl . auto_up_lo_base; 
auto dn rpm a 'shf tbl.auto dn lo base; 

> 

determinejnanual_shif t_pts( ); 

if (shift in_process) 

/* reset antihunt_counter */ 
ant i hunt ^counter = 0; 

/* allow the knob display to flashed any new desired gear */ 
flash desired allowed * TRUE; 

) 

else 
< 

/* reset shift in process flags end update antihunt_counter */ 

automat ic^sip « Or 

if (antihunt counter < 255) 

( 

♦♦antihunt counter; 

> 

/* look for upshift anti-hunt reset conditions */ 

if ((antihunt counter * (US PER LOOP/1000)) >= shf_tbl .of fset_time) 

< 

/* check for last shift * upshift effects */ 

if (auto_dnj>ffset_rpm == shf_tbl .dwn_timer_of fset_rpm) 

auto_dn_offset_rpm = shf_tbl.dwnj>7 fset_.rpm; 
else if~((euto_oyToffset_rp5 °= shf~tbl .dun_of f set_rpro) && 

(input^speed.fTltered^ auto_dn_rpra ♦ shf_tbt .dwn_reset_rpm)) 

auto_dn_offset_rpm = 0; 

/* check for last shift * downshift effects */ 
if (autojjp_offsetj-pm » shf_tbl.up_timerj)ffset_rpm) 
auto_up_offset_rpni ■ shf_tbl.up.of fset_rpra; 



> 



else if ((•utoj^offMWpa «« shf_tbi.up_off$et_rpa) U 

( i nput_tpeed_f 7l ter td~> tuto_up_rpB - shf_tbl .up_r*set_rp">> 
autoj£offs«t_rp» ■ 0; 

/* allow the knob display to flashed the desired gear */ 

if <(<de»ired_gear > destination_gear_selected) && (gos < {upshift _point ♦ 25))) || 
(<dea1red"gear < destination~gear~selected) && (gos > (downshift j»int - 25)))) 
flash_desired_allowed » FALSE;" 
else 

f lash_desired_allowed * TRUE; 



> 



/* set the shift points based on throttle and determined offsets */ 
upshi f t_point = auto_up_rpra ♦ auto_up_of fset_rpm; 
downshif t_point a auto_dn_rpm - auto_dn_of fset_rpm; 

/* check that the calculated shift point is reasonable */ 
if (upshift _point > shf_tbl .man_dwn_sync_rpm) 
upshi ft_point = shf_tbl .man_dwn_sync_rpm; 

if (downshi ft_point < shf_tbl ,man_up_sync_rprn) 
downshift _point = shf_tbl .raan_up_sync_rpm; 



#pragma EJECT 



Funct i on: select_gear 
Description: 

ThU it the root taction for the periodic task SELECTJSEAR. Each 
loop begfna by checking the aanual up/down buttons. Then, based on 
selected jnode end output shaft speed, a *get_. . ,_gear' function is 
called to update dest1natton_gear_selected. 



void select gear(void) 
< 

char manual_request; /* current manual request <♦/• D */ 

static uchar enable_gcw_calc; /* diagnostic - delete later II*/ 

enable_gcw_calc = FALSE; /* diagnostic - delete later I!*/ 

shf_tbl a ini_shf_tbl; /* initialize the shift table V 

destination_gear_selected * 1; 
desi red_gear » ij 

/* initialize file scope variables */ 

wl * 3; 
w2 ■ 4; 
w3 =■ 5; 
w4 » 6; 

lpf_output_speed = output_speed; 

upshif t_point = shf_tbl .aut_up_rpm; 

downshi f t_point = shf_tbl . aut_dwn_rpm; 

auto_up_of f set_rpm = shf_tbl .up_tiraer_of fset_rpm; 

auto dn offset rpm = shf tbl.dwn timer offset rpm; 

lowest_forward"= INITIAL~START_GEAR; 

automat ic_sip ■ 0; 

antihunt_counter * 255U; 

coast ing_L at ch » FALSE; 

f lash_desired_al lowed * TRUE; 

#if (0) /* shiftability variables V 

zero speed counter = ZERO SPEED TIME LIMIT ♦ 5; /* force init of gcw variables V 
eng^decel.rate = -400; 7* RPM?SEC */ 

TRANS_STEP_SIZE_CAL * 346; /* 1.352 BIN 8 (was constant) */ 

torque accessories = 100; /* accessory load with air condition off in coach */ 
gcw^caT = 2400; /* (GCW x 1.68)/32.17 BIN 0 (was constant) V 

gcw~cal_new * 2400; /* (GCW x 1.68)/32.17 BIN 0 (was constant) */ 

gcw~local * 45000; 
gcw_local_counter * 50; 
gcw^local^total ■ 2250000; 
gross_combined_weight = 45000; 

#endif /* shiftability variables V 

x start_periodic<); 

while (1) 

i 

mda_output_f ilterOf /* update our filtered output speed */ 

#if (0) /• shiftability V 

if (enable gcw calc) /* diagnostic aid !)*/ 
< 

de t ermi ne_g ross_combi ned_we i gh t ( ) ; 
determine~shi f tabi I i ty( )J 
determine"shif tabi lity IK); 
> 7* shiftability */ 

fendif 

manual_requeat * 0; 
deter«7ne_baae_auto_sh i ft_pts( ) ; 

/* set destination_gear_selected from function(s) appropriate for selected joode 

switch(selected mode) 

{ 

case REVERSE MODE: 



case DRIVE MOOE: 



tf ((forward lest — TRUE) U 

(ofewnsfclft dtttytd » FALSt) U 
(low speed" at cf> « FAISC)) 

< 

otat1n»tion_ge«r_Mlected » get_automa t i c_gear< dest i nat i on_gear selected, manual request) 
determine destinationO; 

> 

break; 

case LOVKCOE: 

case HOLD MODE: 

case NEUTRAL MODE: 

case PARK MODE: 

case POWER UP MGOE: 

case POUER~DOUN MOOE: 

case DIAGNOSTIC"TEST_MOOE: 

/* prevent transient selection upon node change (these modes ignore it) */ 

destination_gear_selected » 0; 

break; 

default: 

/* invalid mode: do nothing */ 
break; 

> 

x syncjjeriodicCUS PER LOOP); 

> 

x_end _periodic(); 
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* Filename: trns_act.c96 (R-747) (AutoSplit) 

* *" 

* Description: 

* This modules monitors and controls the transmission's actions. 
• 

* Part Number: <none> 
* 

* Rev 1.5 12 Dec 1994 09:19 markyvech 

* In "determinejjear* 1 function; added condition for M intent_hold M and 

* M in_gear_swi tch M . 

* Rev 1.4 9 Dec 1994 14:25 markyvech 

* In "determine^gear" function; added conditions that the M gear_in_timer M 

* will be held high while in the engine_sync_mode and the intent_to_shift 

* switch is depressed. (A smaller sync error is maintained for easier 

* lever engagement when the switch is depressed.) Also changed the offset 

* for clearing the low_speed_latch from downshif t^point ♦ 100 to 

* downshif t_point ♦ 275. 
* 

* Rev 1.3 9 Dec 1994 07:59 markyvech 

* In "determine_spl i tter_state_autospt i t" function; added the conditions 

* to preselect the splitter if "the "intent_to_shif t_swi tch" is TRUE. 

* — — — 

* Rev 1.2 7 Dec 1994 15:53 markyvech 

* Added the "determine_range_state 11 function. Set the appropriate range 

* solenoid select flag based'on the electric range select switch. 
* 

* Rev 1.1 5 Dec 1994 14:54 markyvech 

* Broke the "determine^spl i tter_state" function into multiple functions 

* based on the type of "base transmission system we are working with. 
* 

* Rev 1.0 3 May 1994 13:35:04 markyvech 

* Initial revision. 

* Header files included. 
* 

•include <exec.h> /* executive information */ 

•include <c_regs.h> /* KR internal register definitions */ 
•include <kr_sfr.h> /* defines the kr special function registers V 
•include <kr~def.h> /* 80c196kr bits, constants, and structures V 
•include <wwstib.h> 

•include "drl_ands.h" /* engine control interface */ 

•include "trns_act.h w /* interface to this module */ 3 

•include "trn tbl.h" /* transmission table */ 

•include "calc_spd.h« 

•include "cont'sys.h" 

•include "set gear.h* 

•include l 'con7l939.h» 

•include M pr_s_i_s.h» 

* Variables declared by this file. 
* 

register unsigned char transmi ssion_posi t ion; 



unsigned char R747_type; 

unsigned char janined_in_wrong_gear_tirnerr 

unsigned char manua I ~sync_de I ayed_t i mer ; 

unsigned char low_speed_latch; 

unsigned char forwaroMast; 
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#pragma EJECT 



* 

* Function: Ini t ial ixe_Trans_Action 

* «« — 

* Description: 

* This function initializes those module variables that must be set to a 

* know state on power up or reset. 
* 

ft************************************************************************** 



void initialize trans act ion< void) 



gear_in_ timer 3 500; 
gear_out_timer » 500; 
g_ptr_old a 0; 
current_gear * 0; 
lastJtnown_gear = Od- 
dest ination_gear » 0; 
transmissi on-position » OUT_OF_GEAR; 
low_speed_latch = TRUE; 
splitter_To » 0; 
splitter^hi = 0; 
range_lo ■ 0; 
range_hi ■ 0; 

normal_auto_neutral_timer 3 0; 
downshlf t_delayed a~FAlSE; 
manual_syncjdel ayed_t imer = 0; 
jammed~in_wrong_gear_timer 3 J AMMED_T I ME ; 
R747 type"* INTENT; 

> 

#pragma EJECT 



* Function: Check_For_Jans»d_Gear 

* "~ *" 

* Description: 

* This function checks for a indicated engaged gear, (g_ptr), that is different 

* than "destination_gear_selected u and will force the needed conditions to 

* recover. This condition can occur when the transmission is "jammed" into 

* the wrong lever position, (usually with the clutch disengaged), during a 

* shift. 
* 

void check_for_jammed_g ear (void) 



if ((shift_in_process == TRUE) && 
(automat ic_sip != 0) && 
(destination_gear_selected ■ =» g_ptr) && 
(9_ptr !* 0)~&& 

( jammed_i n_wrong_gea r_time r > 0)) 
j ammed_ i n_wrong_gea r_ t i mer • • ; 

if (jammed in wrong gear timer == 0) 
< 

shif t_in_process = FALSE; 
automat ic_sip = 0; 
desired_gear = current_gear; 
destination_gear = current_gear; 
destination^gea reelected = current_gear; 
jammed in wrong gear timer = JAMMED TIME; 
engine"commands"= ENGINE RECOVERY; 

> 



#pragma EJECT 



* Function: deternrine_gear 
• 

* Description: 

* This function determines the current gear that the transmission 

* is in. When conditions are such that the current gear can not be 

* determined it will be set to a default, (0). 
* 

* Note: When the error across the transmission is near zero for some 

* time for a given test gear then it will be deemed in that gear. 



trans_sync_error = input_spd/gf [gear] - grCgear] * os 



void determine gear (void) 
< 

#define BIN 8 256 /* 2 BIN 8 V 

#define MAX~ERR 4000 /* RPM */ 

JWefine WINDOW 30 /* 30 RPM */ 

#define GEAR IN TIME LEVER 125 /* 250 MSEC a 5 cnts per loop */ 

#define GEAR~IN~TlME~AUTO 50 /* 100 MSEC a 5 cnts per loop V 

#define GEAR~OUT TIME 8 /* 80 MSEC V 

#define MANUAL SYNC DELAYED TIME 45 /* 450 MSEC V 

#define ERROR FUDGE~FACTOR ~ 3 /* RPM V 

#define NORMAL_AUTO~TIME 250 /* 2.5 SEC */ 

#if (0) 

g_ptr = -1; /* lowest reverse ratio V 

/** isdgf = input_speed_f i Itered / front box gear ratio **/ 
_bx = (signed intH input~speed_f i Itered) ; 
~cx = BIN_8; 

~ax = trn~tbl.GFtg_ptr > GRJDFS] ; 
asm mul _cxdx, _bx; 
asm div _cxdx, _ax; 
isdgf = ~cx; 

/** gros = output speed filtered * rear box ratio **/ 

_bx = (signed int)(output_speed_f i Itered ♦ ERROR_FUDGE_FACTQR); 

~cx = trn tbl.GR[g_ptr + GR OFSl"; 

^ax a BIN^S; 

asm mul _cxdx, _bx; 

asm div ~cxdx # _ax; 

gros = _cx; 

trans_sync_error = (isdgf - gros); 
if (isdgf > gros) 

abs_trans_sync_error = (unsigned int)( isdgf - gros); 
else 

abs trans sync error = (unsigned intKgros - isdgf); 

#endif 

abs_trans_sync_error = MAX_ERR; 
trans_window_calc = 0; 

if (abs trans sync error > trans window calc) /* if not in reverse, check for forward V 

g jstr a 1 ♦ trn_tbl.Mghest_forward; 
abs^Trans^sync.error • MAX_ERR; 

while ((abs trans sync error > trans window calc) && (g^ptr !» 0)) 

i 

g_ptr--; 

/** isdgf = input_speed_fi Itered / front box gear ratio **/ 
bx a (signed int)7input speed filtered); 
~cx = BIN_8; 

_ax = trn_tbl.GF(g_ptr ♦ GR_0FS]; 
asm mul _cxdx, _bx; 
asm div _cxdx, _ax; 
isdgf a ~cx; 

/** gros a output speed filtered * rear box ratio **/ 
bx = (signed int)< output speed filtered ♦ ERROR FUDGE FACTOR); 
cx « trn tbl.GRCg_ptr ♦ GR OFsT; 

~ax » BIN~8; 

asm mul _cxdx, _bx; 

asm div "cxdx, ~ax; 

gros * _cx; 



trans_sync_error • itdgf - gr©»; 
If (isdgf > grot) 

ab«_trans_sync_error = (int)< isdgf - gros); 
else " 

abs_trans_sync_error « (int)Cgros - isdgf); 
/* calculate trans sync error window based on gear pointer */ 



bx * WINDOW; 


/* 


BIN 0 */ 


~cx * 8tN_8; 


/* 


SIN 8 V 


"ax » trn~tbl.GF[gj>tr ♦ GR_OFS); 


/* 


8IN 8 V 


asm mulu jrxdx, Jw; 


/* 


make WINDOW BIN 8 V 


asm divu _cxdx, _ax; 


/* 


divide by front ration BIN 8 */ 
BIN 0 V 


t r ans_w i ndcw_c a I c » _cx; 


/* 



if (g_ptr » 0) /* If in neutral, force values V 

i 

abs_trans_sync_error = MAX_ERR; 
trans_sync_error 3 MAX_ERrJ 
trans~window_calc * 0; 
isdgf » 0; 
gros a 0; 

do*nshift_delayed * FALSE; 

jammed in~wrong gear timer = JAMMEO TIME; /* Initialize for next occurence V 

> 



if ((abs_trans_sync_error > trans_window_calc) || 
((g_ptr != current gear) && (current gear != 0))) 

I 

if (gear out timer == 0) 
< 

transmission_posi tion = 0UT_0F_GEAR; 
current gear = 0; 

> 



/* Must have error for some */ 
/* before neutral state is V 
/* recognized. */ 



else 

gear out timer--; 

> 

else 

gear_out_timer = GEARJXJT_TIME; 



if <(g_ptr 1= g_ptr_old) || (g_ptr == 0) || 

((intent_to_shift_switch == TRUE) && 
(in gear switch == FALSE) && 
(engine commands == ENGINE SYNC) && 
(shift_7nit_type == MANUAL)) || 

((accelerator_pedal_position < 5) && 
(input speed < 700) U 
(low speed latch == FALSE))) 

C 

if ((engine commands « ENGINE_SYNC) || 
(engine~comjnands « ENGINE*PREOIP)) 

C 

if (engine camnds " ENGINE PREDIP) 

< 

normal_auto_neutral_t iner « 0; 
manua I'sync^del ayed~t imer * 0; 



else 

if (normal_auto.neutral_tiraer « NORMAL JUJT0_TIME) 
normal_autojieutral_tTmer*+; 

if ((shift init type == AUTO) U 

(normal auto neutrel_timer < NORMAL_AUTO_T I ME ) ) 
gear_in_tlmer = GEARJM_TIME_AUTO; 
else 

gearjn_timer = GEARJMJIMEJ.EVER; 



/* intent to shift stuff */ 



/* if not in gear, init gear in timer. 

/* Rule out picking a gear when coasting 

/* down in neutral and no throttle. 

/* (Found that idle speed and output speed 

/* would match a gear even when in neutral.) 

/* Note: 700 should be idle+100RPM 



V 
V 
*/ 
V 
V 
*/ 



/* 
/* 
/* 
/* 
/* 



V 



/* Use a short in gear time 
/* for splitter only shifts 

unless the system has been */ 

in neutral too long. */ 

EX: When driver pulls the */ 

lever to neutral during a V 

splitter only shift. V 



else 

if (gear in timer « 0) 
{ 

current_gear * gj>tr; 



last_known_g«ar « 9LPt^# 
transmission ^position » HJWt; 

noraal_auto_neutrel_t1«tr « 0; /* get ready for next t\m V 
doimshTftjjelayed ■ FALSS; 

if <<intent_to_shift_t«ftch » TRUE) && (engine_comnands « ENGINE_SYNC)) 
intent_hoTd « TRUE; 

if ((gos current gear > (downshift _point ♦ 275)) && 
(low'speed latch « TRUE)) 

{ 

low_speed_latch » FALSE; 
destination_gear = current_gear; 
destination~gea reelected » cur rent _gear; 
desired_gear * current_gear; 
lowest forward 3 current gear; 

> 

else 
C 

if (low speed latch == TRUE) 
( 

destination_gear = lowest_forward; /* was set to 1 */ 

destination~gear_selected~« lowest_forward; /* was set to 1 */ 
desired_gear = lowest_forward; " /* was set to 1 */ 

shift in_process = FALSE; 

> 



if (last_known_gear > 0) /* Record REV/ FOR data for */ 

forward last"* TRUE; /* use in the select_gear */ 

else ~ /* module. " */ 

forward last = FALSE; 

> 

else 
i 

if ((((shift init type == AUTO) || (low speed latch « TRUE) || 
(manual^sync_delayed_timer >= MANUAL_SYNC_DELAYED_T I ME) ) ) && 
(gear_in_timer >= 4)) 
gear_in_t imer -= 4; 

if (gear_in_timer > 0) 
gear_Tn_timer--; 

if (destination_gear_selected == gj>tr) /* Prevent splitter shift while */ 
downshift_delayed = TRUE; /* still confirming a lever shift. */ 



> 



check_for_jarm»ed_gear( ); 
g_ptr_old = g_ptr ; 

if (((engine commands == ENGINE SYNC) || 

(engine^conmands « ENGINE FOLLOWER)) && 
( manua I _sync_de I ayed_ t i me r < MANUAL_SYNCJ)ELAYED_TIME)) 
manua I _sync_deTayed_t inier** ; 



if (output speed filtered < 12S> 

( 

current_gear 3 0 ; 

transmission ^position • OUT_OF_G£AI; 
low_speed_latch « TRUE; 

if (splitter launch state =» LO SPLITTER) 
C 

if (( lowest ^forward 2) II 
(lowest'forward ==4) || 
( lowest_forward « 6)) 
lowest forward--; 

> 

else 
i 

if (( lowest_forward =» 1) II 
(lowest_forward « 3) || 
(lowest~forward 5)) 
lowest forward**; 

> 



/* manual_sync_delayed_timer is used to allow the sync 
/* mode's'first pass a~chance to pass the engine speed 
/* thru sync and give the mechanicals. a chance to 
/* transition. At this time a false in_gear signal 
/* should be avoided. */ 



/* If stopped; set low speed latch V 



EJ€CT 




* Function: detennine_range_status 

* Description: 

* Thi9 function determines the status the of range. 
• 

* rng_err = rear_counter_spd - (range_ratio * output_spd) 

* "~ — — — — 

* res = 54/21 * 44 * os (for low range) 
* 

* res = 42/51 * 44 * os (for high range) 
* 



void determine range status(void) 



#define BIN 12 


4096 


/* 


2 bin 12 


V 


#define HI RANGE GEAR 


7 








#define 10~RANGE~CAL 


10532 


/* 


54/21 8IN 


12 */ 


#define HI~RANGE~CAl 


3373 


/* 


42/51 BIN 


12 V 


#define RANGE_UINDOw_POS 


30 


/* 


30 RPM 


V 


#define RANGE~UINDOW~NEG 


-30 


/* 


•30 RPM 


V 



/*** This code was never tested or used during the concept development ***/ 
/*** phase. However, it is likely to be needed for range protection ***/ 
/*** in the product. ***/ 



if (destination_gear >= HI_RANGE_GEAR) 

range_cat = hT_RANGE_CAl7 
else 

range_cal = LO_RANGE_CAL; 

range_error =( ( (aux_speed * 8IN_12) 

- (range_cal * output_speed_f i ltered))/BINJ2); 

if ((range error > RANGE WINDOW POS) || (range_error < RANGE_UIN0OW_NEG)) 

aux_box = OUT_OFJJEAR;~ 
else 

aux_box = IN_GEAR; 



#pragma EJECT 



* Function: deterairitj-tnge.stat* 

* ~" 

* Description: 

* This function determines the correct state for the range. 

void determine range state(void) 
( 



if (range select switch « HIGH) 
C 

range_lo = OFF; 
range'hi = ON; 

> 

else 
t 

range_lo = ON; 
range hi * OFF; 

> 



/* Turn off the low range solenoid */ 
/* Turn on the high range solenoid */ 



/* Turn on the low range solenoid */ 
/* Turn off the high range solenoid */ 



#pragma EJECT 



* Function: determfne_splitter_state autosplit 

* - - - 

* Description: 

* This function determines the correct state for the splitter. 

* Once the transmission is in gear both splitter solenoids are turned off. 
* 

void determine splitter state autospl it(void) 
< 

#define SPLTR_SYNC OFFSET POS 80 /* 80 RPM */ 
#define SPLTR~SYNC~OFFSET~NEG -80 /* -80 RPM */ 
#define SPLITTER nME " 20 /* 200 MSEC */ 



if (engine status == ENGINE PRE0IP M0OE) 

splitter_timer * SPLITTER~TIME; " 
else 

if <splitter_timer > 0) 
spl itter_t7mer--; 



/* The splitter_timer will keep the 
/* solenoids on"for a short time 
/* once the SYNC mode is entered. 
/* This allows the splitter enough 
/* time to move, (i.e., when the 
/* splitter changes during SYNC. 



splitter_tc = SPL I TTER_TC_TABLE Cdest i nat i on_gear ♦ GRJ3FS); 

input_speed_modif ied = (signed int)( input _speed_fi Iter ed) ♦ 

( i nput_speed_accel_f i I tered/( 1 000/spl i t ter_tc ) ) ; 

if ((input_speed modified < (gos signed + SPLTR SYNC OFFSET POS)) && 
(input"speed~modif ied > (gos~signed ♦ SPLTR~SYNC~OFFSET~NEG))) 
spl i tter_wi thin_sync = TRUE; 
else 

spl i tter_wi thin_sync = FALSE; 

if ((intent_to_shift_switch « TRUE) && /* Allows for pre*selection 

(desired gear != destination gea reelected) && /* of the splitter, 

(intentjiold « FALSE) && 
( automat ic_sip == 0) && 
(shift_init_type == MANUAL) && 
(transmission ^position == IN GEAR)) 

C 

splitterjn = SPLITTER_HI_TABLE [desired_geer + GR_0FS); 
splitterjo = SPLITTER~LO~TABLE Cdesired'gear ♦ GR~0FS]; 



else /* "Normal" splitter control */ 

i 

if ((splitter_timer > 0) | | 

((transmissionjaosition « I M_GEAR ) && 
(shift_in_process == FALSE))") | 

(lowjspeedjatch == TRUE) || 

(engine_status == ENG I NE_RE COVER Y_MOOE ) || 

((shift init type » MANUAL) &i 
(engine_status « ENG I NE_SYNC_M00E ) ) || 

((shift init type ■» AUTO) && 
(engine status « ENGINE SYNC MODE) && 
(splitter within sync «~TRUE))) 

C 

splitter hi = SPLITTER HI TABLE [destination gear + GR OFS]; 
splitter lo = SPLITTER LO~T ABLE [destination gear ♦ GR OFS]; 

> 



else 
i 

splitterjn = OFF; 
splitter"lo ■ OFF; 

> 

> 

> 

#pr agma EJECT 



* Function: deter«ine_«plitter_state dual force 

* " " " 

* Description: 

* This function determines th« correct state for the splitter. 
# 

void determine splitter state dual force(void) 
i 

if <<clutch_state == DISENGAGED) || /* use normal forces */ 

(desired gear > 6)) 

( 

splitter_lo = ON; 

> 

else 
< 

if (splitter_select_switch == HIGH) /* use high forca Into overdrive 

spli tter_lo * OFF? 
else 

splitter lo 3 ON; 

> 

if <splitter_select_switch == HIGH) 

splitterj)? = ON;" 
else 

splitterjii = OFF; 



#pragma EJECT 



* Function: deterwine_splitter_state base 

* Description: 

* This function determines the correct state for the splitter. 
• 

void determine splitter state base(void) 
i 

splitterjo = ON; 

if <splitter_select_swi tch HIGH) 

splitter_hT = ON;" 
else 

splitter_hi = OFF; 

> 

#pragma EJECT 



* 

* Function: determine_spli tter_state 

* ™ ™ 

* Description: 

* This function determines the correct state for the splitter. 
* 

void determine splitter state(void) 
C 

if (R747_type == BASE) 
deterraine_spl i t ter_state_base( ) ; 

else 

if <R747_tvpe == DUALJORCE) 
determine_spl i tter_state_dual_force< ); 

else 

determine splitter state autosplitO; 

> 



#pragma EJECT 



/**^***************#********************************** ********************* 
* 

* Function: Transaission_Action 

* " 

* Description: 

* This function controls the states of the system ouput devices. 
* 

************************************************«*«* # «*** # ************«* # «* / 

void transmission act ion( void) 
{ 



initialize_trans_action<); /* initialize variables */ 

x_start __per iodicO; 

while (1) 

< 



/* calculate the current gear */ 
/* determine range state */ 
/* determine correct state for range */ 
/* determine correct state for splitter */ 

x sync _periodic(US PER LOOP); 
) ~ 

x_end _periodic(); 



determi ne_gear( ) ; 
determi ne~range_status( ); 
determi ne_range_state< ) ; 
determi ne^spl it ter_state(); 



Files from C:\R0N\R747\INTENT\INTENT.ZIP 



DRL_CMDS.C96 
PR_S_I_S.C96 
SELJ3EAR.C96 
SEQ_SHFT.C96 
TRNS ACT.C96 



12/09/94 
12/12/94 
12/12/94 
12/12/94 
12/12/94 



Unpolished and confidential. Mot to be reproduced, 
disseminated, transferred or used without the prior 
written consent of Eaton Corporation. 

Copyright Eaton Corporation, 1993-94. 
All rights reserved. 



Filename: drl cnds.c96 



****************** **** 



(R-747) (AutoSplit) 



Description: 

The functions in this file will perform the required operations 

for controlling drivel ine components on the J 1939 communication link. 

Part Number: <none> 

Rev 1.4 09 Dec 1994 14:29 markyvech 
In function u control_engine_8ync w ; added code to allow smaller sync 
offsets if the intent to shift switch is depressed. This allows easier 
shift lever insertion. (Note: the gear cannot be confirmed until the 
switch is released.) 

Rev 1.3 09 Dec 1994 11:18 markyvech 
In function l, control_engine_predip M ; added code to allow recovery mode if 
the intent switch is released before neutral is achieved. Also added the 
pr_s_i_s.h to get the intent_to_shif t_switch variable. Also added a faster 
torque ramp off rate for manual intent to shifts 

Rev 1.2 08 Dec 1994 14:44 markyvech 
Changed the offsets in "control^engine^sync" from +-65 to +-45 RPM. Also 
changed the input speed filter constant, (1S_FK1), from 236 to 235. 

Rev 1.1 07 Dec 1994 15:33 markyvech 
Took out the rear counter shaft speed substitution for output shaft speed 
because there is no rear counter shaft speed sensor. 

Rev 1.0 14 Sep 1994 10:48:40 markyvech 
Initial revision. 



* Header files included. 



# include 
# include 
#include 
# include 
#include 
include 
# include 
#include 
#include 
#include 
# include 



<exec.h> 
<c_regs . h> 
<wwslib.h> 
"cont sys.h" 
»conjT939.h" 
"drl cmds.h* 
"trn^tbl.h 11 
"sel"gear.h» 
"calc spd.h" 
»trns~act.h» 
»pr s~i s.h« 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



executive information */ 

ICR internal register definitions */ 

contains common global defines V 

control system information V 

defines interface to j1939 control module */ 

drivel ine commands information */ 

transmission table data structures V 

access to speed filter values */ 



#pragma no reentrant 



* #de fines local to this file. 
* 



#def ine US_PERJ.OOP 10000U 

#define ACT I VE_RECOVERY_GEAR 10 /• rule out boosting downs for now */ 



* Constants and variables declared by this file. 



/* public •/ 



register unsigned char engine_ 
register unsigned char eng1ne~ttatus; 

unsigned char desired_sync_test_iAode; 

unsigned char forced_predip; 

unsigned int de$ired_engine_speed_test; 

unsigned int desired_engine_speed_raap; 

unsigned char desired_engine_speed_tiner; 

unsigned char desired_engine_speed_tiDe; 

unsigned char eng_brake_connand; 

unsigned char eng_brake_assist; 

unsigned char pos7tive_pedal_trans; 

unsigned char sync_first _j>ass_tifDtr; 
/* unsigned char cTutch_stateJ •/ 

unsigned int clutch_sl ip_speed; 

signed int dos_f iTtered; 

signed int overall_error; 

unsigned int os_besed_on_rcs ; 

unsigned int i nput_spi"ed~f i I tered; 

signed int dgos;~ 

signed int input_speed_accel_f i Itered; 

unsigned int <xitput_speed_f i I tered; 

unsigned long is_f i I tered_bin8; 

unsigned long os~f i ltered~bin8; 

signed long dis_f i ltered_bin8; 

signed char eng_percent_torque_f i Itered; 

signed char percent_torque_accessories; 

signed char needed _percent_for_zero_f lywheel_trq; 

unsigned char zero_f lywheel_trq_timer; 

unsigned char zero_f lywheel_trq_time; 

unsigned char accelerator _pedal ^position^old; 

unsigned int gos; /* overall destination gear ratio * output speed BIN 0 */ 

signed int gos_signed; /* overall destination gear ratio * output speed BIN 0 */ 

signed int input_shaf t_accel_calculated; 

unsigned int gos_current_gear; /* overall current gear ratio * output speed 8IN 0 */ 

unsigned char sync_f irstjwss; 

unsigned int syncjnaintain_timer; 

signed int sync_offset; 

signed int sync'of f set jxis; 

signed int sync_of f set_neg; 

signed int sync~dos_offset; 

signed int sync_dos_of fsetj<1; 

signed int sync'speedjnodified; 



/* local V 




static 


unsigned 


int 


static 


unsigned 


char 


static 


unsigned 


char 


static 


signed 


char 


static 


unsigned 


char 


static 


unsigned 


int 


static 


unsigned 


int 


static 


unsigned 


char 


static 


unsigned 


int 


static 


unsigned 


char 


static 


unsigned 


int 


static 


unsigned 


int 


static 


signed 


int 



predip_timer_1; 
predip~tifner~2; 
pred1p~tfner23; 
pred1pTtorqut_buap_va I ue; 
predi p_tcrqua_bunp_t i mm ; 

sync_on_tiaer; 
sync_off_ti*tr; 
sync"di ther^tf wmr; 

torque_l fait; 
recovery_cancal_t imer; 
recov_coast_down_tmp1 ; 
r ec o v~coa s t ~do«n~ t np2 ; 

lpf_output_acctl; 



fpragroa EJECT 



PREDIP MOOE CONST AMTS 
**********#*♦**#****#****** 



idefine 


PREDIP ZERO FD8K TINE 


40 


/* 


0.40s 3 10ms period 


V 


idefine 


predip~toroUe ZERO TIKE 


60 


/* 


0.60s alto period 


V 


idefine 


predip~normal~time" 


200 


/* 


2.00s 31 Oris period 


V 


idefine 


torque j*amp_o?mute 


1 


/* 


1% (per loop) V 




idefine 


PREDIP_TORO BUMP VALUE 10 


0 


/* 


OX */ 




idefine 


PREO I P~T0RQ~BUHP~T I ME_LO 


15 


/* 


0.15s 310ns period 


V 


idefine 


PRE0IP_TORQ BUMP VALUE MED 


10 


/* 


10X v 




idefine 


PREO I P_TQRQ~BUMP~T I KE_M£D 


25 


/* 


0.25s aiOms period 


*/ 


idefine 


PREO IP TORO BUMP VALUE HI 


25 


/* 


25X V 




idefine 


PRED I P_T0R0~BUMP~T IMEJU 


30 


/* 


0.30s 9 10ms period 


V 



* 
* 

******* 



SYNC HOOE CONSTANTS 



idefine 


SYNC OITHER TIME ABOVE 


20 


/* 


0.20s a 10ms period 


*/ 


idefine 


SYNC OITHER TIME BELOW 


30 


/* 


0.30s 3 10ms period 


V 


idefine 


SYNC DITHER~RPM 


35 


/* 


35 rpm 


V 


idefine 


sync~dither~first_time 


255 


/* 


DUMMY VALUE 


V 


idefine 


MAINTAIN SYNC TIME 


500 


/• 


5.00 Sec 


*/ 


idefine 


SYNC FIRST PASS TIME 


250 


/* 


2.50 Sec 


V 


idefine 


THREE PERCENT 


3 








idefine 


ENG RESPONSE UPSHF TIME 


10 


/* 


10 msec 


*/ 


idefine 


ENG~RESPONSE~DNSHF~TIME 


10 


/* 


10 msec 


V 


idefine 


SYNC DOS OFFSET CONSTANT 


2816 


/* 


11 BIN 8 


*/ 



/************************************************ 

* 

* RECOVERY HOOE CONSTANTS 

* 



idefine RECOVERY CANCEL TIME 
idefine R E COVE RY~CANCEL~OFF SET 
idefine RECOVERY TORQUE~STEP 
idefine THLO DS ENG DECAY id 
idefine THLO DS ENG DECAY RAMP 
idefine THLO"ds"finTshED DELTA 



10 /* 0.10s 310ms period V 

20 /* 20X BIN 0 */ 

1280 /* 5X BIN 8 */ 
450 

1 * /* 1 rpra BIN 0 */ 

200 /* 200 rpm BIN 0 */ 



static const uint RECOVERY RATE TABLE [23] = 
i 



o, 


/* .4 ./ 










o, 


/* -3 V 










128, 


/* -2 : 0,50% 




loop 


BIN 8 


V 


128, 
128, 


/* -1 : 0.50% 


9* 


loop 


air 8 


V 


/* 0 : 0.50* 




Loop 


•IV 8 


V 


128, 


/• 1 : 0.50% 




loop 


BlH 8 


V 


128, 


/* 2 : 0.5OX 




loop 


•in a 


V 


128, 


/* 3 : 0.50* 


Ptr 


loop 


•IV 8 


V 


128, 


/* 4 : 0.50% 


P*r 


loop 


BIN 8 


V 


192, 


/* 5 : 0.75X 


ptr 


loop 


•IV 8 


•/ 


192, 


/* 6 : 0.75X 


ptr 


loop 


BIN 8 


V 


192, 


/* 7 : 0.75X 


per 


loop 


BIN 8 


V 


281, 


/* 8 : 1.10% 


per 


loop 


BIN 8 


V 


281, 


/* 9 : 1.10% 


per 


loop 


BIN 8 


•/ 


281, 


/* 10 : 1.10% 


per 


loop 


BIN 8 


V 


0, 


/* 11 V 










0, 


/• 12 V 










o, 


/* 13 V 










o. 


/• H V 










o, 


/* 15 V 










o. 


/* 16 V 










o. 


/* 17 V 










0 


/* 18 V 











>; 



Functions initf*U2s_drivsUns_okta 

Description: 

This fixe t ion, called after all resets, will initialize the system 
copy of drivel ins related data received from the comnuni cat ions link. 



static void initialize drivel ine data(void) 
< 

accelerator _pedal_position * 0; 
engine_coaraumcation_active * FALSE; 
enginej>rake_avai I able ■ FALSE; 
eng brake command * ENG BRAKE I0LE; /* should init with engine c 
/* cTutch_state * ENGAGED; V " 
posit ive_pedal_trans ■ FALSE; 
zero_f lywheel^trq^tiraer * 0; 
xero_f lywheel_trq_tirae « 0; 
percent_torque_accessories » 3; 



desired_sync_test_mode = FALSE 
des i red_eng i ne_speed_test = 0 
des i red'eng i ne~speed~rarap = 0 
des ired_engine_speed_ timer = 0 
desired_engine~speed 3 0; 
syric_dos_offsetJC1 = SYNCJ)OS_OFFSET_CQNSTAMT; 
desired_engine_speed_time ■ 0; 
forced_predip = FALSE; 



/* debug use only * delete later V 
/* debug use only • delete later */ 
/* debug use only - delete later V 
/* debug use only - delete later */ 



ipragma EJECT 



Function: control .engine ^predip 



Description: 

Determines throttlt command for predip mode. 

After a reasonable delay for the transmission to pull to neutral the 
torque will be cycled from zero to a determined value to help the 
transmission achieve neutral. 



static void control engine _predip<void) 

if (engine status 1* ENGINE PREDIP MOOE) 

engine_status » ENGINEERED I P_MCOE; 

predip_timerj 3 0; 
predip~timer~2 « 0; 
predip_timer_3 » 0; 

if ((actual engine_pct trq < 5) || (forcedj)redip timer > 0)) 

predip_timerj * PRED I P_NORMAL_T I ME ; 
else 

desired engine _pct trq = actual engine_pct trq; 

> 

engine control = TORQUE CONTROL; 
command_ETC1 * C_ETC1_OVER SPEED; 



if ((intent_to_shift_switch » TRUE)) /* Allows for recovery mode if the -intent" switch */ 
positive J>edal_trans » TRUE; /* is released before neutral is achieved V 



if (predip timer 1 < PREDIP NORMAL TIME) 
t 

if ((desired_engine_pct_trq >« TQRQUE_RAMP_OF F_RATE ) && 
(actual engine_pct trq > 0)) ~ ~ 

C 

des i red_eng i ne_pc t_trq -* TbROUE_RAMP_OFF_RATE; 

if ((intent to shift switch « TRUE) U /* faster rate for intent to shift V 
<shiftjnit_type~== MANUAL) && 
( act uaT_eng i nejx t_t rq > 0)) 
desired engine _pct trq 1; 

> 

else 

desired_engine_pct_trq = 0; 

/* check to force bunp if neutral not achieved */ 
if (actual engine _pct trq < 10) 

< 

if (♦♦predfp timer 3 >- PREDIP ZERO FDBK TIK£) 
predip tiier 1 ■ PREDIP NORMAL tTmE; ~ 

> 

> 

♦♦predip timer 1; 

> 

else 
< 

if (((lpf_output_accel > -150) || (forced_predip timer > 0)) && 

(predip tiraer~1 < (PREDIP NORMAL TIME ♦ PREDIP TORQUE ZERO TIME))) 

I 

predip_torqueJxiip_time » PREDIP_TORO_Bu*P_TIMEJ.O; 

predip torque~burap~ value * PREDIP TORQ BUMP VALUE LO ♦ needed_percent for zero flywheel trq; 

> 

else 
C 

if (predip timer 1 < (PREDIP NORMAL TIME ♦ 2*PREDIP TORQUE ZERO TIME)) 
{ 

predip_torqueJ>ump time = PREDIP TORQ.BUMP TIME MED; 

predip torque~burap~value * PREDIP TORQ BUMP VALUE MED ♦ needed jxrcent for zero flywheel trq; 
> ~ - - - - - - - 

else 

< 



p™dip_torqu*>fl*_tia» ■ 9*ED\PJ<XtQJUS> TIME HI; 

prtdfp_to*qy»_bu<p_v»lu» ■ PftH) I P_TQtQ_BJKPJ/ALUE_H I ♦ rwtdtd _p*rc«n*_f or_zaro_f I y*m* I _t rq; 

> 

if (predfp tiaer 2 < prtdip torqut buap tine) 
C 

desired_«nginejxt_trq ■ pr*dip_torque_bunp_value; 
if (actual engirt* _pct trq > 0) 

{ 

♦♦pred i p_t i mer_1 ; 
♦+predip~timer~2; 

> 

> 

els* 

C 

desired_engine_pct_trq » 0; 
♦♦predip_ti»*r_1; 
♦♦predip timer~2; 

> 

if <predip_timer_2 >* PRED I P_T0R0UE_ZERO_T IME ) 
predip timer 2 » 0; " " ~ 

> 

> 

#pragma EJECT 



* Function: control _engine_sync (AutoSplit) 

* Description: 

* This function synchronizes engine speed to output shaft speed 

* during a shift. 

static void control engine sync (void) 
< 

if ((intent_to_shift_switch « TRU€) U /* Intent to shift conditions */ 
(shift Tnit type~=» MANUAL)) /* that allow lower offsets. */ 

< 

sync_offset ^pos * 20; 
sync~offset neg » -20; 

> 

else 
i 

8ync_offset_pos ■ 45; /* normal AutoSplit offsets V 

sync'offset neg » -45; 

> 

if (acceleratorj>edat_position > THREEJ>ERCENT) 
syncjnaintain_timer = MA I NTA I N_SYNC_T I ME ; 

if ((engine status 1= ENGINE SYNC MOOE) || (sync maintain timer ==* 0)) 

sync_on_timer =0; 
sync_off_timer ■ 0; 
sync~f irst_pass = TRUE; 

sync~firstj>ass_timer = SYNC_FIRSTJ>ASS_TIME; 

if ((shift_type « UPSHIFT) && (shift_init_type « AUTO)) 

sync_offset * sync_of f set_neg; 
else 

sync_offset = sync_offset _pos; 

if (engine status !- ENGINE SYNC MOOE) /* first time through sync */ 
t 

engine_status = ENGINE_SYNCJ400E; 

if (forced^predip = 3 FALSE) 
sync maintain timer * MAINTAIN SYNC TIME; 

> 

else /* sync maintain timer reached 0 */ 

< 

engine control = OVERRI0E DISABLED; 
command ETC1 - C ETC1 NORMAL; 

> 



else 

syncjnaintain_timer--; 

if (sync on timer** <* 200) /* allow sync mode for about 2 seconds */ 
( 

sync_of f_timer « 

engine control * SPEED CONTROL; 

command.ETCI « C_ETC1JNERSPCED; 

if (sync first_pass M TRUE) 
C 

if ((shift type » UPSHIFT) U (shift init type » AUTO)) 
< 

sync speed modified * (signed int)( input speed) ♦ 

(input_speed_accel~f i Itered /(1000/ENG_RESPONSE_UPSHF_TIME)); 

if (sync speed modified < got signed) 
< 

if (sync first_pass timer «* 0) 
i 

sync_offset « sync^offset^pos; 
sync~f irst_pass » FALSE; 

> 

els* 



sync_f i rst_pas«_t iasr • - ; 



else /* shift is a downshift */ 

sync speed modified * (signed int)( input speed) ♦ 

(input_speed_accel~filtered /(1000/ENGJIESPONSEJ>N$HF_TINE)); 

if (sync speed modified > gos signed) 
( 

/* if (sync first _pass timer == 0) */ 
/• < " */ 

sync first_pass = FALSE; 

if ( (pc t _demand_a t_cur_sp < 15) || (shiftjnit_type »= MANUAL)) 
sync offset * sync offset neg; 
/* > */ 
/* else */ 
/* sync first^pass timer--; */ 
) 



if (gos.signed ♦ sync.offset > 0) 

desired_engine_speed = ( int)(gos_signed ♦ sync_of fset); 
else 

desired_engine_speed = 0; 

> 

else 
< 

if (sync^of f_timer <= 4) 
sync_of f _t i mer++ ; 

else 

sync_on_timer = 0; 



if (shift_init_type =* AUTO) 
sync_of 7 set = - (sync_of fset); 



/* force sync speed to toggle around gos */ 



else 
i 

sync first_pass = TRUE; 

sync~firsr_pass_timer = SYNC.FIRST_PASS.T1NE; 
sync~offset = sync.of fset_pos; 

manual sync delayed timer = 0; /* used in SEO SHFT.C96 module */ 

> 



#pragma EJECT 



* Function: control _eng 1 ne_s ync_t es t jeode (AutoSpUt) 

* Description: 

* This function test the synchronize aode of engine speed control. 
* 



static void control engine sync.test node(void) 

if (accelerator_pedal_position < 10) 
< 

engine status = ENGINE_FOUOUER_M00E; 
engir*~comnands = ENGINE FOLLOWER; 
engine~control ■ OVERRIDE DISABLED; 
coowand_ETC1 ■ C_ETC1_NORRAL; 
desi reef engine speed » 0; 

) 

else 

i 

if (accelerator_pedal_position > 90) 
{ 

engine_status » ENGINE_SYNC_M00E; 
engine commands = ENGINE_SYNC; 
engine~control = SPEED_C0NTROL; 
command_ETC1 = C_ETC1 JDVERSPEED; 
desired~engine_speed = desired_engine_speed_tes ti- 
des ired~engine speed timer * desired engine speed time; 

> 

else 
C 

if <desired_engine_speed_timer > 0) 
des i r ed_eng i ne_speed_t i mer - - ; 

else 
i 

if (desired engine speed > 600) 

desired_engine_speed_timer 3 desired_engine_speed_time; 
desired^engine'speed"^ (desired engine speed - desired_engine_speed_rafflp) 

> 

> 

> 

> 

> 

fpragma EJECT 



taction; deter»inejf_rtcovery_coeplete 



* Description: 

* Thi» routine checks to see if the percent_torque_value_lirait has 

* exceeded the percent_torque_velue feedback from the engine by xX 

* for x Billiseconds and will then set percent_torque_value_l imi t 

* to 100% to cancel the recovery mode. 

static void determine if recovery complete(void) 
C 

if <<net_engine_pct trq > 10) &£ 

(desired engine_pct trq > (net engine _pct trq ♦ RECOVERY CANCEL OFFSET))) 

C 

♦♦recovery cancel timer; 

> 

else 

recovery_cancel_tiraer = 0; 

if ( (recovery_cancel_timer >« RECOVERY_CANCEl_T IKE ) || 
(desired engine_pct trq =* a 100) ) 

< 

/* terminate the recovery mode */ 

desired engine_pct trq » 100; 

engine status = ENGINE RECOVERY MOOE COMPLETE; 

> 

> 

#pragma EJECT 



* taction: control_er*im_recovery_norsMl 

* Description: 

* Determine throttle con&nd for recovery node. 

* TOJtCA£J.IMIT is scaled ss • SIM 8 number representing the percentage 

* of torque allowed to the engine during recovery. 



static void control engine recovery normal (void) 
< 

engine_control » SPEED TORQUE LIMIT; 
cc*mand_ETC1 » C_ETC1_NORMAL;~ 

desired_engine_speed a 8031; /* torque limit only, max value for speed */ 
torquejirait ♦= RECOVER Y_RATE_T ABLE Cdest i nat i on_gear+4] ; /* BIN 8 V 
desired_engine jxt_trq « <char)(torque_tirait » 8); /* SIM 0 */ 
determine if recovery completeO; 

> 

fpragma EJECT 



* Functions control_ef*j1r»_recovery_coasting 

* Description: 

* Determine throttle coanend for coasting down shifts mode. 

static void control engine recovery coasting (void) 
i 

register uint local_uint; 

if (sync on timer <= 300) 

♦*sync_on_ti trier; 

engine control = SPEED CONTROL; 
conroand^ETCI * C_ETC1_NO*MAL; 

sync_of f_t imer = 0; 

/** recovcoast_down_tmp1 * gos ♦ (dgos * IC1) - THLO_DS_ENG_DECAY_RAMP **/ 

if (dgos < 0) /* get absolute value */ 

_cx = (uint) -dgos; 
else 

_cx a (uint)dgos; 

asm mulu cxdx, #THL0 DS ENG DECAY K1; /* SIN 12 */ 

asm shrl "cxdx, #12; " " /* BIN 0 */ 

if (_cxdx > 500) /* error check */ 

local_uint = 0; 
else 

localjjint = _cx; 

if <lpf output accel > 0) 

recov_coast~down_tmp1 » (gos ♦ local_uint) - THL0J)S_ENGJ)ECAY_RAMP; 
else 

recov_coast_down_tmp1 * (gos - local_uint) - TH10_DS_ENG_DECAY_RAMP; 

/** recov_coast_down_tmp2 * desired_engine_speed - THL0_DSJNG_.DECAY.RAW 

recov_coast_down_tmp2 = desired_engine_speed - THL0_DS_ENGJ>ECAY_RAMP; 

if (recov_coast_down_tmp1 < recov_coast_down_tmp2) 

des i red_eng i ne_speed = recov_coast_down_tmp1; 
else 

desired engine speed = recov coast down tnp2; 

> 

else 
i 

if (sync off timer <= 5) 
C 

♦♦sync off timer; 
engine~control * TORQUE CONTROL; 
cc4Bn&nd_ETC1 * C.ETCl.ttORJULf 
desired~engine jxt trq » 0; 

> 

else 

sync_on_timer » 0; 



if ((desired engine speed + THLO DS FINISHED DELTA) < gos) 
< 

/* terminate the recovery mode V 

desired enginejxt trq ■ 100; 

engine status > ENGINE RECOVERY NODE COMPLETE; 

> 

> 

ftpragoa EJECT 



Function: control_engine_recovery 



Description: 

This function determines which type of throttle recovery should be 
used. And initializes sons of the variables that will be used. 



static void control engine recovery(void) 
C 

if ((engine status !- ENGINE RECOVERY HQOE) && 

(engine status !- ENGINE RECOVERY MOOE COMPLETE)) 

I 

engine_status » ENG I NE_RECOVERY_M00E ; 
desired_engine_pct_trq » 0; 
recovery_cancel_timer =0; 
sync_on_t imer = 0; 
sync_of f_timer * 0; 

/* reset pedal transition variables */ 
posi tiv€_pedal_tran$ * FALSE ; 
posi tive_pedal~trans » FALSE; 
zero_f lywheel_trq_tiraer = 0; 
zero_f lywheel^trcLtime = 0; 

if (gos < desired_engine_speed) 
desired_engine_speed = gos; 

/* set initial starting torque limit */ /* percent, 8IN 8 */ 
if <(actual_enginejxt_trq > needed_percent_for_zero_f lywheel_trq) && 
(pct_demand_at_cur_sp > 5)) 
torque_limit = ((unsigned int)(actual_engine_pct_trq))«8; /* percent, BIN 8 */ 
else 

torque limit"= ((unsigned int)(needed_percent for zero flywheel trq))«8; /* percent, BIN 8 V 

> 

if ((destination_gear > ACT I VE_RECOVERY_GEAR ) && 
(pet demand at cur sp < 5) && 
((shift type « COAST DOWN SHIFT) || 
(shift type == UPSHIFT))) " 

C 

control engine recovery coast ing(); 

> 

else 
C 

control engine recovery normal (>; 

> 

> 

#pragma EJECT 
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